Среди нечетных строк массива определить количество элементов, равных первому элементу

Колясик · 24.03.2014, 19:11

Дан массив х(N,M). Среди нечетных строк массива определить количество элементов, равных первому элементу массива.

Евгений · 24.03.2014, 22:39

const n= 10;
m= 10;
type Tmatr= array[1..n,1..m] of byte;
var A: Tmatr;
e,i,j: byte;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
A[i,j]:= Random(10);
e:=0;
for i:=1 to n do
for j:=1 to m do
if (j mod 2)<>0 then
if A[i,j] = A[1,1] then
Inc(e);
Writeln(e);
Readln;
end.

24.03.2014, 19:11	#1 (permalink)
Колясик Новичок Регистрация: 24.03.2014 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Среди нечетных строк массива определить количество элементов, равных первому элементу Дан массив х(N,M). Среди нечетных строк массива определить количество элементов, равных первому элементу массива.

24.03.2014, 19:11
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Бывает, что в аналогичных темах можно найти множество нужной информации Определить количество положительных элементов матрицы Дан массив A(n,m). Найти количество элементов в каждой строке, меньшего диагонального

24.03.2014, 22:39	#2 (permalink)
Евгений Member Регистрация: 31.03.2010 Адрес: Тульская область Сообщений: 1,309 Сказал(а) спасибо: 11 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 13090	const n= 10; m= 10; type Tmatr= array[1..n,1..m] of byte; var A: Tmatr; e,i,j: byte; begin Randomize; for i:=1 to n do for j:=1 to m do A[i,j]:= Random(10); e:=0; for i:=1 to n do for j:=1 to m do if (j mod 2)<>0 then if A[i,j] = A[1,1] then Inc(e); Writeln(e); Readln; end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070