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

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;

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.