Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
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.