21.12.2009, 21:25
|
#3 (permalink)
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Сообщение от HaXaJI
В массивах А=(-5.2 ,8 ,1.3, -6) и В=(-4.7, -3, 2.6, 7, 13, -1)определить величины и номера максимальных элементов. Поиск максимального элемента оформить в виде под программы.
|
Код:
CONST
A:ARRAY[1..4] of REAL=(-5.2 ,8 ,1.3, -6);
B:ARRAY[1..6] of REAL=(-4.7, -3, 2.6, 7, 13, -1);
TYPE
AR=ARRAY[1..10] of REAL;
VAR
C:AR;
Max_el:REAL;
Imax,i:INTEGER;
PROCEDURE Find_Max(Af:AR;Nf:INTEGER; var Maxf:REAL; var I_f:INTEGER);
VAR i:INTEGER;
BEGIN
Maxf:=Af[1];
FOR i:=2 TO Nf DO
IF Af[i]>Maxf THEN
BEGIN
Maxf:=Af[i];
I_f:=i;
END;
END;
BEGIN
FOR i:=1 TO 4 DO
C[i]:=A[i];
Find_Max(C,4,Max_el,Imax);
Writeln('Max. value in array1 has elem. N ',Imax,' equal to ',Max_el:4:1);
FOR i:=1 TO 6 DO
C[i]:=B[i];
Find_Max(C,6,Max_el,Imax);
Writeln('Max. value in array2 has elem. N ',Imax,' equal to ',Max_el:4:1);
ReadLn;
END.
|
|
|