Предмет: Информатика,
автор: mariya456
найти сумму 10 произвольных чисел вводимых с клавиатуры,пожалуйста помогите(
Ответы
Автор ответа:
0
var a:array[0..9] of integer;
var i,sum:integer;
begin
for i:=0 to 9 do begin
write('Vvedite chislo: ');
readln(a[i]);
sum:=sum+a[i];
end;
writeln(sum);
readln;
end.
Похожие вопросы
Предмет: Английский язык,
автор: kruglyi2228
Предмет: Русский язык,
автор: arshynbamishiin
Предмет: Математика,
автор: Tyryryr
Предмет: История,
автор: капляяяяя
Предмет: Математика,
автор: Danila1107