Const n=10;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
c:=a[n];
for i:=n downto 2 do a[i]:=a[i-1];
a[1]:=c;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
8 2 24 20 27 44 25 41 16 21
21 8 2 24 20 27 44 25 41 16
1) Невозможно ничего, разные типы данных
2) Сложение возможно, невозможно деление
3) Возможно
4) Невозможно деление на 0
Ответ: 3)
Блок-схема - в прилагаемом файле.
10 50 true
8 45 true
6 40 true
4 30 true
2 25 true
0 20 false
k:=10;
t:=50;
while k>1 do
begin
k:=k-2;
t:=t-5;
end;
write(k,n);