09.06.2010, 08:45 | #1 (ссылка) |
Новичок
Регистрация: 09.06.2010
Сообщений: 1
Репутация: 0
|
Pascal. Надеюсь здесь мне помогут с подпрограммой?
Здравствуйте, умные люди! Помогите, пожалуйста:
Дано задание: Найти минимальный и максимальный элемент А(4,3), B(4,4) Больше никаких данных. Задание дали после тем: Подпрограмма процедура и Двумерные массивы. Спасибо, если кто-нибудь подскажет как написать программу. |
09.06.2010, 14:43 | #2 (ссылка) |
Новичок
Регистрация: 10.07.2009
Сообщений: 227
Репутация: 17
|
зверрюга, пробуем так
Код:
program hh; uses crt; var a:array[1..4,1..3] of integer; b:array[1..4,1..4] of integer; f,g,i,j,min,min1,max1,max:integer; begin clrscr; write('massiv a(i,j)'); writeln; for i:=1 to 4 do begin for j:=1 to 3 do begin a[i,j]:=random(50)-10; write(a[i,j]:3); end; writeln; end; write('massiv b(f,g)'); writeln; for f:=1 to 4 do begin for g:=1 to 4 do begin b[f,g]:=random(50)-10; write(b[f,g]:3); end; writeln; end; writeln; begin max:=a[1,1]; for i:=1 to 4 do begin for j:=1 to 3 do if max<a[i,j] then max:=a[i,j]; end; write('max=',max); end; writeln; begin max1:=b[1,1]; for f:=1 to 4 do begin for g:=1 to 4 do if max1<b[f,g] then max1:=b[f,g]; end; write('max1=',max1); end; writeln; begin min:=a[1,1]; for i:=1 to 4 do begin for j:=1 to 3 do if min>a[i,j] then min:=a[i,j]; end; write('min=',min); end; writeln; begin min1:=b[1,1]; for f:=1 to 4 do begin for g:=1 to 4 do if min1>b[f,g] then min1:=b[f,g]; end; write('min1=',min1); end; writeln; writeln('min,max- a[i,j]'); write('min1,max1- b[f,g]'); end. |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Логи здесь!! помогите!!!!!!!!!!!!!!!! HELPPPPPPPP! | Ravlik | Безопасность | 0 | 10.01.2011 12:48 |
Помогите с охлаждением (не уверен, что здесь нужно) | Elatus | Неисправности, настройка | 3 | 04.01.2011 23:14 |
Pascal abc | Wenera | Программы | 0 | 29.11.2010 20:03 |
Ужас какойто с ABBYY Finereader, ОШИБКА непонятная преследует, надеюсь на вашу помощь | Doctorus | Программы | 10 | 01.11.2010 22:51 |
это оптимальная температура и вообще всё здесь в порядке | SERGEY66 | Неисправности, настройка | 2 | 02.10.2010 12:21 |
Здесь драйвер Radeon 9000 + Windows 7 | Beer_n | Драйвера | 0 | 08.05.2010 21:18 |
Помошь с Pascal | Чистый листочек | Программирование | 9 | 08.03.2010 07:35 |
Переход с Pascal на C++ | Garf | Программирование | 1 | 07.03.2010 01:22 |
Ссылка на Pascal | s1gm@ | Программирование | 3 | 24.01.2010 23:39 |
Figaro здесь, Фигаро там... Помогите. | Margo_zz | Безопасность | 16 | 13.08.2009 08:24 |
Нужны диски купи их здесь | www.advmail.ru | Реклама, объявления | 0 | 31.07.2007 02:18 |