Составить программу на паскале. Заполнить одномерный массив произвольной…

Question

84

Составить программу на паскале. Заполнить одномерный массив произвольной размерности случайными числами из промежутка [-150; 150] и вывестиего наэкран в строчку, c именем каждого элемента массива и его индексом. Найти и сообщить сумму положительных элементов массива.

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

ответить

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

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

yvlasin · Accepted Answer

33

yvlasin

01 марта 2023

Var k,S: integer; A: array [1… 50] of integer; Begin Randomize; For k: =1 to 50 do Begin A[k]: =random (301) -150; Write (k,') ',A[k],'); End; Writeln; For k: =1 to 50 do If A[k]>0 then S: =S+A[k]; Write ('Ñóììà ïîëîæèòåëüíûõ ýëåìåíòîâ ìàññèâà — ',S) End.

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

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

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

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