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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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;