Помгоите решить задачки!, матрицы и массивы Опции

[Надюня]

1) Дана матрица 55 или 25*25. Найти номера строк, которые содержат наибольшее число четных членов.
2) Дан массив из N натуральных чисел. Выписать в убывающем порядке те цифры, которые не входят ни в одно из четных.

[neic]

1) Вот примерно так всё выглядит:

uses crt;
var a: array[1..25,1..25] of integer;
		a1: array[1..25] of integer;
		i,s,max,j:integer;
begin
clrscr;
For i:=1 to 25 do
begin
	for j:=1 to 25 do
	begin
		Write('Введите элемент матрицы A[',i,',',j,']:');
		read(a[i,j])
	end;
end;

For i:=1 to 25 do
begin
	for j:=1 to 25 do
	begin
		If (a[i,j] mod 2)=0 then
			a1[i]:=a1[i]+1
	end;
end;

s:=0;
max:=0;
For i:=1 to 25 do
begin
	 If max<a1[i] then
			begin
			max:=a1[i];
			s:=i;
		end;
end;
writeln('Указываем номер строки, в которой больше всего четных чисел:',s);
write('Указываем кол-во четных чисел:',max);
readkey
end.

2) Второй вариант делается почти также. Подумай подправь, если что не получиться пиши сюда.

Сообщение отредактировано: neic - 9.12.2007 16:12