Есть ответ 👍

Примеры понятия, высказывания, умозаключения, доказательств из различных наук: , информатики , и ​

141
410
Посмотреть ответы 1

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


Program day; var  a: array[1..30] of integer;   b, s, i, min: integer; begin  min : = 999;   randomize;   for i : = 1 to 30 do    begin    a[i] : = random(9, -3);     s : = s + a[i];     write(a[i]: 3);   end;   writeln;   writeln('ниже нуля ');   for i : = 1 to 30 do    begin    if a[i] > 0 then write(i,'-го ');     end;     if a[i] = 0 then b : = b + 1;   writeln;   for i : = 1 to 30 do      if a[i] < min then min : = a[i];     writeln('самая низкая температура - ', min);   writeln('средняя температура ноября ', s / 30); end.

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