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.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку