Задать вопрос Регистрация
Помочь другим

  • Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива

Ответы 1

  • 1)

    uses crt;

    var B:array [1..10] of real;i:integer;

    begin

    clrscr;

    readln(B[i]);

    writeln(B[i]);

    end.

    3)

    uses crt;

    var B:array [1..10] of real;i:integer; v:real;

    begin

    clrscr;

    readln(B[i]);

    v:=B[6];

    B[6]:=B[9];

    B[9]:=v;

    writeln (B[i]);

    end.

     

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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