Решить в цикле с пред условием Дано N произвольных чисел найти…

Question

Решить в цикле с пред условием Дано N произвольных чисел найти их сумму и вывести на экран. Решить в паскале Помогитепожалуйста.

Answer 1

52

dadyda

26 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: