• Помогите пожалуйста)
    1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран
    2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.

Ответы 3

  • random (41)
  • 1)var L:array[1..9] of integer;    a:integer;beginfor a:=1 to 9 do readln(L[a]);for a:=1 to 9 do write(L[a],' ');end.2)  var L:array[1..22] of integer;    a:integer;beginrandomize;for a:=1 to 22 do L[a]:=random(40)+2;for a:=1 to 22 do write(L[a],' ');end.
    • Автор:

      zoefs2c
    • 6 лет назад
    • 0
  • {1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран }var L:array [1..9] of byte;    n,i:byte;begin  N:=9;{считываем с клавиатруры N чисел} writeln('введите масссив'); for i:=1 to n do read(L[i]); writeln; writeln('Массив:');  {вывод на экран массива} for i:=1 to n do write(L[i]:7);{7 позиций под число}end. {2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.} var K:array [1..22] of byte;    n,i:byte;begin  N:=22;randomize; for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]} writeln; writeln('Массив:');  {вывод на экран массива} for i:=1 to n do write(K[i]:7);{7 позиций под число}end.
  • Добавить свой ответ

Войти через Google

или

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

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

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