Вопрос по информатике:
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.
Объяснить программу по строчно!
- 01.01.2018 16:42
- Информатика
- remove_red_eye 5836
- thumb_up 25
Ответы и объяснения 2
Где for i это ввод. это 8 строка у тебя. С 10 начинается вывод. End конец. Больше ничего не знаю.
- 02.01.2018 14:20
- thumb_up 14
Var
a:array[1..1000]of integer;{задаем массив}
i,n,summ:integer;{задаем переменные}
begin
write('введите кол-во элементов');
readln(n);
write('введите элементы массива');
for i:=1 to n do{цикл от 1 до кол-ва элементов,например n=5,значит будем выполнять цикл 5 раз}
readln(a[i]);{заполняем массив n раз}
for i:=1 to n do
summ:=summ+a[i];{складываем элементы массива}
writeln('среднее арифм. элементов массива=',summ/n){выводим сумму элементов деленную на n(их кол-во)}
end.
- 03.01.2018 21:15
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.