Написать программу которая определяет количество положительных элементов одномерного массива
Var a:array[1..10] of integet;i,s: integer;beginrandomize;for i:=1 to 10 do begina[i]:=random(21)-10;if a[i]>0 then s:=s+1;end;writeln(s);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
