Помощь - Поиск - Пользователи - Календарь
Полная версия: Помгоите решить задачки!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Надюня
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) Второй вариант делается почти также. Подумай подправь, если что не получиться пиши сюда.
volvo
neic, меня вот вопрос заинтересовал: что ты бы делал, если бы была дана матрица 181*181, а не 25*25? (я не просто так спрашиваю, и вопрос не в том, что вводить вручную 625 элементов - это слишком)... Вопрос - на другую тему. А вот на какую - попробуй догадаться...
Client
neic а ты сам ее хоть откомпилировал? blink.gif
neic
Client
Сейчас всё работает! Заметил все ошибки.

volvo
Ну можно и Random использовать. Давно не программил на Паскале, забыл как использовать Random.
volvo
Я ж тебе сказал - вопрос не на тему заполнения... Читай внимательно, что тебе пишут.
neic
Ты про задание? Если да, то там как я понял нужно вывести строку в которой наибольшее значение чётных членов.
Тем более пример дан, пускай концовку под себя подгонит, если надо.
Или я не так задание понял? blink.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.