Предмет: Информатика,
автор: maxportnoi
Составить программу нахождения суммы элементов массива, состоящую из 10 чисел. Язык Pascal
Ответы
Автор ответа:
0
Var m:array [1..10] of integer;
I,s:integer;
Begin
S:=0;
For i:=1 to 10 do
Read(m[i]);
For i:=1 to 10 do
S:=s+m[i];
Write(s);
End.
I,s:integer;
Begin
S:=0;
For i:=1 to 10 do
Read(m[i]);
For i:=1 to 10 do
S:=s+m[i];
Write(s);
End.
Похожие вопросы
Предмет: Химия,
автор: alenakaruck
Предмет: История,
автор: gastrik2007
Предмет: Физика,
автор: piro1dima
Предмет: Литература,
автор: Dzganskay
Предмет: Математика,
автор: мирослав12345