Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В PASCAL! ПОЖАЛУЙСТА!
Дан массив X(N,M). Если первый элемент массива положительный, то найти сумму элементов среди элементов четных строк массива, иначе произведение.

Answer 1

123456789101112k:=0;s:=1;if a[1]>0 then begin     for i:=1 to  n do            k:=k+a[i];     write('Сумма элементов равна ',k);endelse if a[1]<0 then begin    for i:=1 to n do        s:=s*a[i];    write('Произведение элементов равна ',s);end;