Дано N-произвольных чисел найти их сумму. Срочно нужно !
Дано N-произвольных чисел найти их сумму. Срочно нужно !
Гость
Ответ(ы) на вопрос:
ГостьКод программы на 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.
Не нашли ответ?
Похожие вопросы