Есть ответ 👍

Нарисуйте краткую форму записи оператора выбора

153
347
Посмотреть ответы 1

Ответы на вопрос:


Var  a: array[1..38] of integer;   i: integer; begin  writeln('изначальный массив');   for i: = 1 to 76 do  if i< 39 then begin    a[i]: =random(51) - 20;     write(a[i],' ');   end else begin if i=39 then begin writeln; writeln('получившийся массив'); end;   if ((a[i-38] mod 10) = 4) or ((a[i-38] mod 7) = 0) then a[i-38]: =100;   write(a[i-38],' ');   end; end.     

Популярно: Информатика