Question

Напишите комментарии к программе.pascal! program granat; uses crt; var a: array [1..10] of integer; i,k,x,z,vsp: integer; begin write ('исходный массив: '); for i : = 1 to 10 do a[i]: =random(10); {заполняем массив} for i : = 1 to 10 do write (a[i]: 3); writeln; begin for k: =1 to 9 do begin x: =a[k]; vsp: =k; for i: =k+1 to 10 do if a[i]k then begin z: =a[k]; a[k]: =a[vsp]; a[vsp]: =z; end; end; end; write ('отсортированный массив: '); begin for i: =1 to 10 do begin if a[i] mod 2 = 0 then write (' ',a[i]) else; end; end; end.

Answer 1

/Program granat;
Uses Crt;
var A: array [1..10] of integer;
i,k,x,z,vsp:integer;
begin
write ('Исходный массив:');
for i := 1 to 10 do begin
A[i]:=random(10); {Заполняем массив}Write (A[i]:3);end;
writeln;
begin
for k:=1 to 9 do
begin
x:=A[k];vsp:=k;
for i:=k+1 to 10 do
if a[i]<x then
begin
x:=A[i];vsp:=i;end;
if vsp>k then
begin
z:=a[k];a[k]:=a[vsp];a[vsp]:=z;end;end;end;
write ('Отсортированный массив:');for i := 1 to 10 doWrite (A[i]:3);writeln;
begin
for i:=1 to 10 do
if A[i] mod 2 = 0 then Write (A[i]:3);
end;end.