• вот задание: дано: массивы А(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 (A<B)and(B>C) then D:=B;
    if (C>B)and(A<C) then D:=C;
    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: ');

Ответы 1

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

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years