04.09.2016, 11:37 | #1 (permalink) |
Новичок
Регистрация: 03.09.2016
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программирование в Паскаль. Массивы
Написать программу в Паскаль. В каждой из 10 геологических проб определено процентное содержание 5 химических элементов. Для каждого элемента определить пробы с наименьшим и с наибольшим его содержанием. |
04.09.2016, 11:37 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Зачастую проблему можно решить быстрее, если ознакомиться с похожими обсуждениями Паскаль. Массивы Паскаль. Массивы Массивы. Паскаль |
04.09.2016, 20:54 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ох, тоска...
Не успел семестр начаться, как понеслось: напишите мне, я скатаю и сдам, а сам (в данном случае, сама) учиться не желаю, пошла тусить. Марина, поймите, идея выехать на форумах - прямой путь к отчислению. Мой Вам совет - беритесь за ум, пока не поздно! Впрочем, как знаете - Вам жить. Код:
Const N_el=5; N_pr=10; Var A:Array[1..N_pr,1..N_el] of Byte; C_min,C_max:Byte; i,j,Sum,I_min,I_max:Byte; Begin Randomize; for i:=1 to N_pr do begin Sum:=0; for j:=1 to N_el do begin A[i,j]:=Random(100-Sum); Inc(Sum,A[i,j]); end; end; Writeln(' El_1 El_2 El_3 El_4 El_5'); for i:=1 to N_pr do begin if i<10 then Write('Test_0',i) else Write('Test_',i); for j:=1 to N_el do write(A[i,j]:8); Writeln; end; Writeln; for j:=1 to N_el do begin I_min:=1; I_max:=1; C_max:=A[1,j]; C_min:=A[1,j]; for i:=2 to N_pr do begin if A[i,j]<C_min then begin C_min:=A[i,j]; I_min:=i; end; if A[i,j]>C_max then begin C_max:=A[i,j]; I_max:=i; end; end; Writeln('Element_',j,': Minimal - test N ',I_min:2,', Maximal - test N ',I_max:2); end; Readln End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|