Определить произведение элементов массива, стоящих на чётных местах.

108

356

Посмотреть ответы 2

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

захар189

Информатика

4,6(38 оценок)

Var k,n,i,j: integer; a: array[1..100,1..100] of integer; begin readln(n); for i: =1 to n do for j: =1 to n do begin write('a[',i,',',j,']='); readln(a[i,j]); end; k: =1; for i: =1 to n do for j: =1 to n do if j mod 2=0 then k: =k*a[i,j]; writeln(k); end.

jasmin301

Информатика

4,4(37 оценок)

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var a: = arrrandom(15,20,84); a.println; writeln(a.where(t -> (t.isodd)and(t mod 3 = 0)and(t mod 10 < > ); end. пример: 64 64 76 31 21 81 53 30 58 38 66 69 57 65 41 4