Задание:
Решить в цикле с пред условием Дано N произвольных чисел найти их сумму и вывести на экран. Решить в паскале Помогитепожалуйста.
Решение:
var i, n, summ, c: integer; begin randomize; write ('n='); readln (n); i: =0; summ: =0; writeln ('Исходные числа'); while i < n do begin c: =random (21) — 10; write (c, '); summ: =summ+c; i: =i+1; end; writeln; writeln ('Сумма чисел равна ', summ); end.
Знаете другой ответ?