{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.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u> <u>// Внимание! Если программа не работает, обновите версию!</u>
begin var s:=Arr('Клиндухова','Кобзарь','козловский','капша','мороз Артем', 'Мороз ИЛья','Павлова','Глухих'); s.Println; s:=s.OrderBy(t->t.ToUpper).ToArray; s.Println end.
# список чисел будет в переменной listlist = [10, 12, 1, 3, 5, 16, 16, 0, -2]; # находим самое большое число используя функцию max и помещаем его в переменную max_elementmax_element = max(list) print ("max element: ", max_element)#чтобы узнать индекс используем функцию indexprint ("index: ", list.index(max_element));