Придумайте цепочку преобразований произвольного трехзначного числа к результату 7

Question

Информатика: Придумайте цепочку преобразований произвольного трехзначного числа к результату 7

snoopelol5 · Accepted Answer

Const   nn = 50; var   a,b,nb:array[1..nn] of integer;   i,n,j: integer; begin   Write( Введите количество элементов в массиве (n 51): );   Read(n);   Writeln( Вводите элементы массива );   j:=0;   for i:=1 to n do   begin     Read(a[i]);     if a[i] 0 then begin Inc(j); b[j]:=a[i]; nb[j]:=i end   end;   if j 0 then begin     Write( Отрицательные элементы: );     for i:=1 to j do Write(b[i], );     Writeln;     Write( Индексы отрицательных элементов в массиве: );     for i:=1 to j do Write(nb[i]:3);...

MOGZ ответил