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

[Надюня]

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

[Michael_Rybak]

Смотрела FAQ? Пробовала? Получилось?

[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

[volvo]

neic, меня вот вопрос заинтересовал: что ты бы делал, если бы была дана матрица 181*181, а не 25*25? (я не просто так спрашиваю, и вопрос не в том, что вводить вручную 625 элементов - это слишком)... Вопрос - на другую тему. А вот на какую - попробуй догадаться...

[Client]

neic а ты сам ее хоть откомпилировал?

[neic]

Client
Сейчас всё работает! Заметил все ошибки.

volvo
Ну можно и Random использовать. Давно не программил на Паскале, забыл как использовать Random.

[volvo]

Я ж тебе сказал - вопрос не на тему заполнения... Читай внимательно, что тебе пишут.

[neic]

Ты про задание? Если да, то там как я понял нужно вывести строку в которой наибольшее значение чётных членов.
Тем более пример дан, пускай концовку под себя подгонит, если надо.
Или я не так задание понял?


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