Нужна Помощь.заранее Благодарен.

Тема в разделе "Pascal and Delphi", создана пользователем Oleg1997, 25 дек 2014.

  1. Oleg1997

    Oleg1997 New Member

    Регистрация:
    25 дек 2014
    Сообщения:
    2
    Симпатии:
    0
    Даны два массива А(i) и B(i).Создать массив C(i) каждый элемент которого будет равен наименьшему каждой пары элементов из А и В.(Элементы массива А и В вводить с клавиатуры).

    Мой Код :
    program zadaca46;
    uses crt;
    const n=20;
    var
    a:array[1..n] of byte;
    b:array[1..n] of byte;
    c:array[1..n] of byte;
    i:integer;
    Begin
    begin
    writeln('vvedite elementi massiva A');
    For i:=1 to n do
    Readln(A:4);
    end;
    Begin
    Writeln('vvedite elementi massiva B');
    For i:=1 to n do
    readln(B:4);
    end;
    begin
    writeln('massiv C');
    For i:=1 to n do
    Begin
    c:=min(a,b);
    write(c:4);
    end;
    readkey;
    end;
    end.
     
Загрузка...

Поделиться этой страницей