k:=0;
for i:=1 to 100 do
if a[i]>0 then k:=k+1;
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Задан массив X, состоящий из 100 целых чисел. Запишите фрагмент программы, в котором бы подсчиталось кол-во положительных элементов массива
k:=0;
for i:=1 to 100 do
if a[i]>0 then k:=k+1;
Объяснение: