Вот : дано: массивы а(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

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