Регистрация
vorobeva85ramon
13.08.2022 18:05
Информатика
Есть ответ 👍

Укажите информационные процессоры ( действия с информацией ) a разговор по телефону б посадка дерева в кассета любимой музыкальной группы г письмо приятелю д выполнение контрольной работы е разгадывание кроссворда ж просмотр телепередачи з учебник

189
428
Посмотреть ответы 2

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

090416me
090416me
4,6(60 оценок)
Правильные ответы: а, д, е, ж
Angelochek1915
Angelochek1915
4,7(36 оценок)

program pr; uses crt; var a: array[1..10] of integer;       i,max: integer;       s: real; beginfor i: =1 to 10 do begin a[i]: =random(100); write(a[i],'; '); end; writeln;   max: =abs(a[1]-a[2]); for i: =1 to 9 do      if abs(a[i]-a[i+1])> max then max: =abs(a[i]-a[i+1]);       s: =0; for i: =1 to 10 do s: =s+a[i]; s: =s/10; writeln('max=',max); writeln('среднее арифметическое=',s); readln; end.

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