Question

вот задание: дано: массивы А(10),В(10),С(10). Сформировать массив D(10), каждый элемент которого есть максимальное значение соответствующих элементов А,В,С, т.е. Di=MAX{Ai,Bi,Ci}. Нахождение максимального значения оформить в виде подпрограммы.а вот подпрограмма:Procedure FindMax(A,B,C:real; Var D:real);Beginif (A>B)and(A>C) then D:=A;if (A<B)and(B>C) then D:=B;if (C>B)and(A<C) then D:=C;End;VarA,B,C,D:array[1..10] of real;i:integer;BeginWrite('A: ');For i:=1 to 10 doBeginA[i]:=random(100)-25;Write(A[i],' ');End;WriteLn;Write('B: ');

Answer 1

А если А=В будет? Что сделает прога? Ничего, ни одно условие не выполнится! И на выходе D=0 выдаст. Погоняй подольше свою прогу, чтобы выпали в столбцах одинаковые числа, увидишь.И лучше не "Write(A[i],' ');" использовать, а Write(A[i]:4);. Если так везде сделать, удобнее смотреть будет.