Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помгоите решить задачки!

Автор: Надюня 9.12.2007 1:27

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

Автор: Michael_Rybak 9.12.2007 4:13

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

Автор: neic 9.12.2007 16:00

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) Второй вариант делается почти также. Подумай подправь, если что не получиться пиши сюда.

Автор: volvo 9.12.2007 16:07

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

Автор: Client 9.12.2007 16:07

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

Автор: neic 9.12.2007 16:15

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

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

Автор: volvo 9.12.2007 16:18

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

Автор: neic 9.12.2007 16:23

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