Ребят, помогите, пожалуйста, очень срочно!

Question

Ребят, помогите, пожалуйста, очень срочно! Найти сумму положительных элементов массива а (15) ПАСКАЛЬ, 10 КЛАСС ШКОЛЬНЫЙ УРОВЕНЬ, БЕЗ ВСЯКИХОСЛОЖНЕНИЙ! СПАСИБО!

Answer 1

58

kofspb

17 апреля 2023

Program Program1; Vara: array [1… 15] of integer; i,sum: integer; beginrandomize; for i: =1 to 15 dobegina[i]: =random (100) -50; writeln ('a['+inttostr (i)+']='+inttostr (a[i]); end; sum: =0; for i: =1 to 15 doif a[i]>0 then sum: =sum+a[i]; writeln ('Cумма положительных элементов массива='+inttostr (sum); end.

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

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

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

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

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