Предмет: Информатика,
автор: Dashutk
решить в паскале задачу.заполнить массив состоящий из н элементов введенный пользователем в автоматическом режиме .найти среднее значение элемента массива.очень срочно!!!
Ответы
Автор ответа:
0
var
a:array[1..1000]of integer;
i,n,summ:integer;
begin
write('введите кол-во элементов');
readln(n);
write('введите элементы массива');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
summ:=summ+a[i];
writeln('среднее арифм. элементов массива=',summ/n)
end.
a:array[1..1000]of integer;
i,n,summ:integer;
begin
write('введите кол-во элементов');
readln(n);
write('введите элементы массива');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
summ:=summ+a[i];
writeln('среднее арифм. элементов массива=',summ/n)
end.
Похожие вопросы
Предмет: Химия,
автор: natacat06
Предмет: Другие предметы,
автор: mane8
Предмет: Українська мова,
автор: mariya07032008
Предмет: Математика,
автор: 1233321
Предмет: Математика,
автор: макас666