1) Заполнить и вывести на экран массив 5 х 10 случайных целых чисел в диапазоне от 1 до 10.

2) Найти сумму элементов одномерного массива с k1-го по k2-ой, где k1 и k2 вводятся с клавиатуры. Сделать проверку корректности их ввода.

3) Найти сумму всех элементов одномерного массива, имеющих четные индексы.

4) Создать одномерный массив случайных целых чисел в диапазоне (-7,2). Переставить в обратном порядке элементы массива.

5) Найти 3 минимальных элемента массива и возвести их в квадрат.

uses crt;

var i, j, k, n, s, s1:integer;

a:array[1 ... 5,1 ... 10] of integer;

begin

randomize;

for i:=1 to 5 do

for j:=1 to 10 do

a[i, j]:=random (10) + 1;

for i:=1 to 5 do

begin

writeln (' ') ;

for j:=1 to 10 do

write (a[i, j], ' ') ;

end;

2-3

uses crt;

var i, j, k, n, s, s1:integer;

b:array[1 ... 10] of integer;

begin

randomize;

//prog 2

for i:=1 to 10 do

begin

b[i]:=random (10) + 1;

if i mod 2 = 0 then s1:=s1+b[i];

write (b[i],' ') ;

end;

writeln (' vvedite k and n ') ;

readln (k, n) ;

for i:=k to n do s:=s+b[i];

writeln ('suma = ', s) ;

writeln ('suma chetnyh ', s1) ;

readln;

end.

4 ...

uses crt;

var i:integer;

a:array[1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do a[i]:=random (10) - 7;

for i:=1 to 10 do write (a[i],' ') ;

writeln;

for i:=10 downto 1 do write (a[i],' ') ;

readln;

end.