Регистрация
Гавхарчик
10.11.2021 15:10
Информатика
Есть ответ 👍

, решите то, что сможете,

193
226
Посмотреть ответы 1

Ответы на вопрос:

MakkDuo
MakkDuo
4,6(34 оценок)
Program pr1; var  a: array[1..10] of string;   i, j: integer;   s: string; begin  for i : = 1 to 10 do    readln(a[i]);   for i : = 1 to 10 do    for j: =1 to 10 do    if a[j] > a[i] then      begin      s : = a[i];       a[i] : = a[j];       a[j] : = s;     end;   writeln('отсортированный массив');   for i : = 1 to 10 do      writeln(a[i]); end.

Популярно: Информатика