• 1. Запол­нить массив а [1..14] случайными целыми чис­лами в диапазоне от 1 до 18 и вывести на экран элементы массива с нечетными значениями, меньшими 10.
    2. Запол­нить массив а [1..15] случайными целыми чис­лами в диапазоне от -14 до 14 и вывести на экран элементы массива со значениями, меньшими 5 и индексами, не меньшими 10.

Ответы 1

  • 1)vara:array[1..14] of integer;n,k,i:integer;beginfor i:=1 to 14 dobegin a[i]:=Random(19); write(a[i],' ');end;writeln;for i:=1 to 14 do if (a[i] mod 2=1) and (a[i]<10)   then write(a[i],' ');readlnend.2)vara:array[1..15] of integer;n,k,i:integer;beginfor i:=1 to 15 dobegin a[i]:=Random(29)-14;; write(a[i],' ');end;writeln;for i:=10 to 15 do if a[i]<5   then write(a[i],' ');readlnend.
  • Добавить свой ответ

Войти через Google

или

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

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

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