25.12.2010, 20:15 | #1 (permalink) |
Новичок
Регистрация: 25.12.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Двумерные массивы и функции. Нужна помощь.
Первая на двумерные массивы: Дан двумерный массив из 5 строк и 6 столбцов. Определить для каждого четного столбца максимальный элемент. Найти произведение этих элементов. А вторая на функции: Дан одномерный массив из 100 случайных целых чисел в диапазоне от 5 до 25 включительно. Вывести все числа, которые максимально часто встречаются в массиве и количество их повторений. Подсчет количества повторений для числа оформить в виде функции. Помогите пожалуйста! |
25.12.2010, 20:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме создается много аналогичных обсуждений, рекомендую вам почитать их Двумерные массивы и процедуры PASCAL Нужна помощь. Логические функции, СДНФ. Массивы. Нужна помощь в доработке программы. |
26.12.2010, 10:01 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
TYPE Ar=Array[1..100] of Byte; VAR A:Ar; C,N:Array[5..25] of Byte; i,j:Integer; Dummy:Byte; Function Rep_num(B:Ar;Q:Byte):Byte; var Ir:Integer; Num:Byte; begin Num:=0; for Ir:=1 to 100 do if B[Ir]=Q then Inc(Num); Rep_num:=Num; end; BEGIN Randomize; For i:=1 to 100 do A[i]:=Random(21)+5; For i:=0 to 3 do begin For j:=1 to 25 do Write(A[25*i+j]:3); WriteLn; end; Writeln; WriteLn('Press "Enter" to continue...'); ReadLn; For i:=5 to 25 do begin N[i]:=i; C[i]:=Rep_Num(A,N[i]); end; For i:=5 to 24 do For j:=5 to 29-i do If C[j]>C[j+1] then begin Dummy:=C[j+1]; C[j+1]:=C[j]; C[j]:=Dummy; Dummy:=N[j+1]; N[j+1]:=N[j]; N[j]:=Dummy; end; For i:=25 downto 5 do WriteLn(N[i]:2,' - ',C[i]:2,' times'); ReadLn; END. |
|
27.12.2010, 18:47 | #4 (permalink) |
Новичок
Регистрация: 25.12.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
актуально
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
двумерные, функции |
|
|