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