Дан массив l, содержащий 40 элементов в интервале - вопрос №4562915401050 от ElzaraLeonovich 07.08.2020 13:20

Question

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

ElzaraLeonovich · Answer

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.