Var a: array[1..10] of Integer; i,n,gg,ff,hh: Integer; begin for i:=1 to 10 do begin writeln('Введите ',i,' число'); readln(n); a[i]:=n; end; gg:=a[i]; for i:=1 to 10 do begin if a[i]<gg then begin gg:=a[i]; ff:=i; hh:=a[1]; end; end; a[1]:=gg; a[ff]:=hh; writeln(''); for i:=1 to 10 do begin writeln(a[i]); end; end.
1) файл паскаля приложен. 2) код на c# static void Main(string[] args) { int a, b; a = Convert.ToInt32(Console.ReadLine()); b = Convert.ToInt32(Console.ReadLine()); if (a > 2) { Console.WriteLine(a / 2); Console.WriteLine(b - 1); } } 3) Код на vb dim a as integer = 0 dim b as integer = 0 a = cint(console.readline()) b = cint(console.readline()) if a > 2 then console.writeline( a / 2) console.writeline(b - 1) end if
i,n,gg,ff,hh: Integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число');
readln(n);
a[i]:=n;
end;
gg:=a[i];
for i:=1 to 10 do
begin
if a[i]<gg then
begin
gg:=a[i];
ff:=i;
hh:=a[1];
end;
end;
a[1]:=gg;
a[ff]:=hh;
writeln('');
for i:=1 to 10 do
begin
writeln(a[i]);
end;
end.