10) Двумерный массив: Найти произведение четных элементов двумерного массива.
Вот:
123456789101112131415161718192021const n=5;var a:array[1..n,1..n] of integer; i,j,s:integer;begin s:=0; randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:4); if (i+j) mod 3=0 then s:=s+a[i,j]; end; writeln; end; writeln(S=,s);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
