Информатика

Олюха

21 февраля, 01:30

вот задание: дано: массивы А (10), В (10), С (10). Сформировать массив D (10), каждый элемент которого есть максимальное значение соответствующих элементов А, В, С, т. е. Di=MAX{Ai, Bi, Ci}. Нахождение максимального значения оформить в виде подпрограммы. а вот подпрограмма:

Procedure FindMax (A, B, C:real; Var D:real) ;

Begin

if (A>B) and (A>C) then D:=A;

if (AC) then D:=B;

if (C>B) and (A
End;

Var

A, B, C, D:array[1 ... 10] of real;

i:integer;

Begin

Write ('A: ') ;

For i:=1 to 10 do

Begin

A[i]:=random (100) - 25;

Write (A[i],' ') ;

End;

WriteLn;

Write ('B: ') ;