Регистрация
nadyushasemeni
15.03.2020 03:22
Информатика
Есть ответ 👍

Объявить одномерный массив на 12 элементов целого типа , найти среднее арифметическое данных элементов,заменить пятый элемент массива полученным результатом

193
208
Посмотреть ответы 2

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

EricKornet
EricKornet
4,4(100 оценок)
Uses crt; typemassiv = array [1..12] of integer ; vari,n,summa : integer ; srednee : real ; a : massiv; begin clrscr; write('введите кол-во элементов : ' ); readln(n); summa : = 0 ; for i: =1 to n do beginwrite('введите ',i, ' элемент : ' ); readln(a[i]); summa : = summa + a[i]; end ; srednee : = summa / n; a[5] = srednee; readln; end.
Виолетта2209
Виолетта2209
4,6(36 оценок)

program p1;

uses srt;

var a,m,sum:integer;

begin

clrscr;

writeln("read p and a");

read(m);

read(a);

sum:=m*a;

write(sum);

readkey;

end;

Объяснение:

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