ОЧЕНЬ Асету 14 лет, он коллекционирует марки, знает английский и испанский языки. Асем занимается бальными - id2076968320221004 от leranik4 04.10.2022 00:46

Question

Информатика: ОЧЕНЬ Асету 14 лет, он коллекционирует марки, знает английский и испанский языки. Асем занимается бальными танцами, ей 12 лет, она изучает итальянский язык. Их одноклассник Медет выступает на концертах домбристов, ему 12 лет, он хорошо знает турецкий язык. Создайте структуру базы данных. Сколько записей будет в базе данных?

leranik4 · Accepted Answer

Var     n, k, i, imax, j: integer;     a: array[1..100]of integer; begin     randomize;     n := random(30) + 10;     for i := 1 to n do     begin         a[i] := Random(30);         write(a[i], );     end;     writeln();         {сортировочка}     for i := 1 to n - 1 do     begin         imax := i;         for j := i + 1 to n do             if a[j] a[imax] then                 imax := j;         k := a[i];         a[i] := a[imax];         a[imax] := k;     end;         for i := 1 to n do        ...

MOGZ ответил