1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем Oleg1997, 25 дек 2014.

  1. Oleg1997

    Oleg1997 New Member

    Репутация:
    0
    Регистрация:
    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.
     
Загрузка...

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