Все в паскале соствьте программу которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы. введите на экран исходный и полученный массивы
Var s: string; a, b: integer; begin readln(s); if s[1] = 'x' then begin a := StrToInt(s[3]); b := StrToInt(s[5]); if s[2] = '-' then a := -a; writeln(b - a); end else if s[3] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[5]); if s[2] = '-' then begin a := -a; b := -b; end; writeln(b - a); end else if s[5] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[3]); if s[2] = '-' then b := -b; writeln(a + b); end end.
учтите что никакой защиты от дурака или неверного ввода
program shegor2003;
var a:array[1..10] of integer;
i, temp:integer;
begin
for i:= 1 to 10 do
a[i]:=random(11);
writeln('Исходный массив:');
for i:= 1 to 10 do
write(a[i]:3, ' ');
writeln;
temp:=a[1];
a[1]:=a[10];
a[10]:=temp;
writeln('Преобразованный массив:');
for i:= 1 to 10 do
write(a[i]:3, ' ');
end.