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

Question

Информатика

Адамушка

15 февраля, 23:32

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

+1

Ответы (1)

Знаете ответ на вопрос?

Флавия · Answer 1

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