В майкрасофт ексель смоделируй и перениси ...
Const
n=15;
var
a:array[1..n] of integer;
i,t:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(50)+10;
Write(a[i]:3)
end;
Writeln;
for i:=1 to n div 2 do
begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t end;
Writeln('Результирующий массив');
for i:=1 to n do Write(a[i]:3);
Writeln;
end.
Пример
Исходный массив
25 19 47 34 22 54 52 11 40 13 25 47 29 50 58
Результирующий массив
58 50 29 47 25 13 40 11 52 54 22 34 47 19 25
Словесная форма алгоритма:
<u>начало</u>
<u>введите</u> Х
<u>если</u> Х>10 <u>тогда</u>
Х=Х+2
<u>иначе</u>
Х=Х*10
<u>напечатать</u> Х
<u>конец</u>
Program z;
Var N,k:integer;
Begin
k:=0;
If N<5 then k:=k+1;writeln(k);
End.
Program qwerty;
var a:integer;
begin
read (a);
if a>0 then a:=a+20
else a:=a-5;
write (a);
end.