Предмет: Информатика,
автор: vadik12
Дано N-произвольных чисел найти их сумму. Срочно нужно !
Ответы
Автор ответа:
0
Код программы на Pascal :
Program asd;
var n,sum,i,a:integer;
begin
sum:=0;
Write('Введите кол-во чисел');
read(n);
For i:=1 to n do
begin
Write('Введите число');
read(a);
sum:=sum+a;
end;
Writeln('Сумма равна',sum);
readln;
end.
Похожие вопросы
Предмет: Алгебра,
автор: nursultankamalbek023
Предмет: Другие предметы,
автор: lolstopchto
Предмет: Другие предметы,
автор: 2000aleksandrionov
Предмет: Геометрия,
автор: Ksenia0297
Предмет: Математика,
автор: 2000valera2000