Дан массив L, содержащий 40 элементов в интервале от 10 до 50, замените первый и последний элементы массива. Заранее буду благодарен, сделайте в паскале.

Const n=40;
var a : array[1..n] of integer;
   b,i : integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(41)+10;
   write(a[i], );
  end;
writeln;
b:=a[1];
a[1]:=a[n]; a[n]:=b;
for i:=1 to n do write(a[i], );
writeln
end.

Оцени ответ

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