Сформировать массив из 10 произвольных чисел .определить - вопрос №109079555 от 9000Кира0009 05.10.2020 16:46

Question

Информатика: Сформировать массив из 10 произвольных чисел .определить сумму положительных четных элементов этого массива.

9000Кира0009 · Answer

Var  m : array[1..10] of Integer;  i,s,p,n : Integer;Begin  s:=0; p:=1; n:=0;  For i:=1 to 10 do  Begin   m[i]:=-100+Random(201);   Inc(n,Ord(m[i]=0));   If m[i] 0 then s:=s+m[i];   If m[i] 0 then p:=p*m[i];  end;  Writeln(s, ,p, ,n);end....