Пользователь вводит с клавиатуры несколько
5-9 класс
|
английских слов (количество определите сами). Написать программу, которая выдает
список этих слов, упорядоченных по алфавиту (для упрощения задачи считайте, что
все слова начинаются с разной буквы). Паскаль
Var a:array[1..100] of string;
n:string;
i,m,j:integer;
begin
writeln ('Введи кол-во слов');
readln(m);
for i:=1 to m do
begin
readln (n);
a[i]:=n;
end;
for j:=1 to m do
for i:=1 to m-1 do
if a[i]>a[i+1] then
begin
n:=a[i];
a[i]:=a[i+1];
a[i+1]:=n;
end;
writeln;
for i:=1 to m do
writeln (a[i]);
end.
Другие вопросы из категории
Заранее благодарю!
кодирования 16 бит, что время звучания составляет 3 минуты.
Читайте также
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
делителем числа a;
чило меньше","Мое число больше","Вы угадали".процесс повторяется до тех пор пока не будет угадано число.
помогите на паскале сделать