Const
   N = 10;
Var
A:array[1..N] of integer;
i,j:integer;
Begin
Write('Исходный массив:        ');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ')
    End;
WriteLn;
Write('Отсортированный массив: ');
For j:= 1 to N div 2 do
    For i:= 1 to N div 2-1 do
        if A[i]>A[i+1] then Swap(A[i],A[i+1]);

For j:= 1 to N div 2 do
    For i:= N div 2 to N-1 do
        if A[i]<A[i+1] then Swap(A[i],A[i+1]);

For i:= 1 to N do
    Write(A[i],' ')
End.

0 0

4 года назад

Плиииззззззззззююююююю

tcinik

Alt вродебы..............................

0 0

4 года назад

СКАЖИТЕ ПОЖАЛУЙСТА Выбери верные ответы. 1. C:\Учёба\analiz.doc двухуровневая система многоуровневая файловая система нет верн

MMD [10]

Многоуровневая файловая система

0 0

4 года назад

Составить программу вычесления для любого из вырожений.пожалуйста помогитене понимаю как делатьопишите или сделайте хотя-бы один

Lybimka

Пример В)
uses crt;var f,a,b,c:real;beginwriteln ('Введите число A');readln (a);writeln ('Введите число B');readln (b);writeln ('Введите число C');readln (c);F:=(sqrt(sqr(b)*2)-4*a*c);writeln('Ответ: ',f:2:1);end.

0 0

1 год назад