Задание:
найти сумму 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.
Знаете другой ответ?