Задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экран найти сумму…

Question

78

Задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экран найти сумму всех элементов массива

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

infobsn · Accepted Answer

92

infobsn

28 апреля 2023

unit math; program chisla; var a: array[1… 20] of intteger; i,s: integer; Begin s: =0; for i: =1 to 20 do begin a[i]: =randomRange (-5,1); write (',a[i]); s: =s+a[i]; end; readln; writeln ('Сумма элементов массива=',s); End.

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

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

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

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