в массиве 5x5 из целых чисел вычислить количество четных элементов в строках с четными индексами pascal
Ответы
Ответ дал:
0
const
n=5;
var
x:array[1..n, 1..n] of integer;
i,j,k:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=Random(50)+1;
Write(x[i,j]:4)
end;
Writeln
end;
k:=0; i:=2;
while i<=n do begin
for j:=1 to n do
if x[i,j] mod 2=0 then Inc(k);
i:=i+2
end;
Writeln('Количество четных элементов в четных строках равно ',k)
end.
Тестовое решение:
Исходный массив
1 14 23 17 39
27 37 28 28 21
10 6 3 38 22
1 31 27 50 42
16 43 27 16 17
Количество четных элементов в четных строках равно 4
n=5;
var
x:array[1..n, 1..n] of integer;
i,j,k:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=Random(50)+1;
Write(x[i,j]:4)
end;
Writeln
end;
k:=0; i:=2;
while i<=n do begin
for j:=1 to n do
if x[i,j] mod 2=0 then Inc(k);
i:=i+2
end;
Writeln('Количество четных элементов в четных строках равно ',k)
end.
Тестовое решение:
Исходный массив
1 14 23 17 39
27 37 28 28 21
10 6 3 38 22
1 31 27 50 42
16 43 27 16 17
Количество четных элементов в четных строках равно 4
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад