?>
Что демонстрирует данная операция?Что выйдет в конечном итоге? constN=25;vara:array[1..N] of integer;i:byte;sum:integer;beginrandomize;for i:=1 to N beginarr [i]:=random (10)-5;write (arr[i]:4);end;writeLn;sum:=0;for i:=1 to N doif arr [i]>0 thensum:=sum+arr[i];writeLn (sum 5);end.
Ответы
Решение представлено во вложении.
Язык: Pascal;
Программа подсчитывает сумму положительных элементов массива и выводит её на экран.