Найти количество нулевых элементов массива, стоящих на четных и нечетных местах

@Crazy D · Регистрация: 19.03.2013

Студворк — интернет-сервис помощи студентам

Заполнить матрицу m*n с клавиатуры. Найти количество нулевых элементов массива, стоящих на четных и нечетных местах

@Федя Форточкин · 20.03.2013, 00:15

если я правильно понял задание, то вот:

Pascal

var
a:array[1..3,1..3] of integer;
i,j:integer;
g,h:integer;
begin
g:=0;
h:=0;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
writeln('a['+IntToStr(i)+','+IntToStr(j)+']');
readln(a[i,j]);
end;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
if ((a[i,j]=0) And (((i mod 2)=0) And ((j mod 2) = 0))) then
g:=g+1
else
begin
if (a[i,j]=0) then
h:=h+1;
end;
end;
end;
writeln('Количество нулевых элементов, стоящих на чётных местах: ' + IntToStr(g));
writeln('Количество нулевых элементов, стоящих на нечётных местах: ' + IntToStr(h));
end.

вместо троек можешь подставить любое нужное тебе кол-во элементов

@Crazy D 0 / 0 / 0 Регистрация: 19.03.2013 Сообщений: 13
		1
	Найти количество нулевых элементов массива, стоящих на четных и нечетных местах 19.03.2013, 21:46. Показов 1698. Ответов 1 Метки нет (Все метки) Заполнить матрицу m*n с клавиатуры. Найти количество нулевых элементов массива, стоящих на четных и нечетных местах 0

	20.03.2013, 00:15

Опции темы

Найти количество нулевых элементов массива, стоящих на четных и нечетных местах

Решение