Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

1)
var L:array[1..9] of integer; 
   a:integer;
begin
for 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;
begin
randomize;
for a:=1 to 22 do L[a]:=random(40)+2;
for a:=1 to 22 do write(L[a], );
end.