Дано N-произвольных чисел найти их сумму. Срочно нужно !
Код программы на Pascal :
Program asd;
var n,sum,i,a:integer;
begin
sum:=0;
Write('Введите кол-во чисел');
read(n);
For i:=1 to n do
Write('Введите число');
read(a);
sum:=sum+a;
end;
Writeln('Сумма равна',sum);
readln;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Код программы на 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.