natashasheh
25.09.2021 22:41

Что демонстрирует данная операция?Что выйдет в конечном итоге? const
N=25;
var
a:array[1..N] of integer;
i:byte;
sum:integer;
begin
randomize;
for i:=1 to N begin
arr [i]:=random (10)-5;
write (arr[i]:4);
end;
writeLn;
sum:=0;
for i:=1 to N do
if arr [i]>0 then
sum:=sum+arr[i];
writeLn (sum 5);
end. ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nikakim03
07.05.2021 23:45

Решение представлено во вложении.

Язык: Pascal;

Программа подсчитывает сумму положительных элементов массива и выводит её на экран.


Что демонстрирует данная операция?Что выйдет в конечном итоге? constN=25;vara:array[1..N] of integer
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота