Var a:array[1..100] of integer; n,i,k,c:integer; begin Randomize; write('n = '); readln(n); Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(100); write(a[i]:6); end; writeln; for k := 1 to n-1 do for i := n-1 downto k do if a[i] > a[i+1] then begin c:=a[i]; a[i]:=a[i+1]; a[i+1]:=c end; Writeln('Отсортированный массив:'); for i:=1 to n do write(a[i]:6); writeln; end.
type wind = record c: char; //направление ветра (с,ю,в,з) f: integer; //сила ветра end;
var a: array[1..n] of wind; i, nday: integer;
begin for i := 1 to n do begin write(i, ' - день направление ветра (с,ю,в,з)'); readln(a[i].c); write('сила ветра :'); readln(a[i].f); if (a[i].c = 'ю') and (a[i].f <= 4) then nday := nday + 1; end; writeln(' Дней когда дул южный ветер с силой, не превышающей 4 м/с :',nday); end.
Тестовое решение: 1 - день направление ветра (с,ю,в,з)с сила ветра :7 2 - день направление ветра (с,ю,в,з)с сила ветра :7 3 - день направление ветра (с,ю,в,з)ю сила ветра :6 4 - день направление ветра (с,ю,в,з)ю сила ветра :5 5 - день направление ветра (с,ю,в,з)ю сила ветра :4 6 - день направление ветра (с,ю,в,з)в сила ветра :4 7 - день направление ветра (с,ю,в,з)ю сила ветра :3 8 - день направление ветра (с,ю,в,з)в сила ветра :5 9 - день направление ветра (с,ю,в,з)з сила ветра :4 10 - день направление ветра (с,ю,в,з)ю сила ветра :3 Дней когда дул южный ветер с силой, не превышающей 4 м/с :3
n,i,k,c:integer;
begin
Randomize;
write('n = '); readln(n);
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:6);
end;
writeln;
for k := 1 to n-1 do
for i := n-1 downto k do
if a[i] > a[i+1] then
begin
c:=a[i];
a[i]:=a[i+1];
a[i+1]:=c
end;
Writeln('Отсортированный массив:');
for i:=1 to n do write(a[i]:6);
writeln;
end.
Пример:
n = 15
Исходный массив:
10 0 59 85 98 71 72 55 29 50 54 27 34 56 73
Отсортированный массив:
0 10 27 29 34 50 54 55 56 59 71 72 73 85 98