В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Aly6000
Aly6000
12.08.2020 14:15 •  Информатика

Информатика , как найти среднее арифметическое чисел а[1]..a[20] начало программы program maximum; var a: array [1..20] of integer; i,max: integer; i,min: integer; i,среднее: integer; i: integer; begin a[1]: =56; a[2]: =78; a[3]: =48; a[4]: =90; a[5]: =45; a[6]: =54; a[7]: =63; a[8]: =52; a[9]: =43; a[10]: =54; a[11]: =64; a[12]: =59; a[13]: =54; a[14]: =53; a[15]: =52; a[16]: =58; a[17]: =71; a[18]: =58; a[19]: =59; a[20]: =70; for i: =1 to 20 do read (a[i]); max: =a[1]; for i: = 2 to 20 do if a[i]> max then max: = a[i]; write(max); for i: =1 to 20 do read (a[i]); max: =a[1]; for i: =2 to 20 do if a[i]

Ответ:
veronikkot2016
veronikkot2016
05.10.2020 17:14
Program Maximum; var A: array [1..20] of integer;  i,sum: integer;  sr:real; Begin   A[1]:=56; A[2]:=78;   A[3]:=48; A[4]:=90;   A[5]:=45; A[6]:=54;   A[7]:=63; A[8]:=52;   A[9]:=43; A[10]:=54;   A[11]:=64; A[12]:=59;   A[13]:=54; A[14]:=53;   A[15]:=52; A[16]:=58;   A[17]:=71; A[18]:=58;   A[19]:=59; A[20]:=70;   for i:=1 to 20 do begin    sum+=A[i];  end;  sr:=sum/20;  write(sr);  end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?