ПОМОГИТЕ, ПОЖАЛУЙСТА!
1) Задать символьный массив из 7 слов (мама, ель, парта, каникулы, прыжок, ура, при-кол). Вывести элементы массива в столбик, с каждым элементом вывести его длину.
2). Задать числовой массив из 8 элементов. Данные вводить с клавиатуры. Упорядочить элементы массива по возрастанию. Вывести исходный и упорядоченный массивы на экран.
Паскаль.
1) Задать символьный массив из 7 слов (мама, ель, парта, каникулы, прыжок, ура, при-кол). Вывести элементы массива в столбик, с каждым элементом вывести его длину.
2). Задать числовой массив из 8 элементов. Данные вводить с клавиатуры. Упорядочить элементы массива по возрастанию. Вывести исходный и упорядоченный массивы на экран.
Паскаль.
More Questions From This User See All
Answers & Comments
Первая задача:
var
i:integer;
a: array [1..7] of String;
begin
a[1]:='мама';
a[2]:='ель';
a[3]:='парта';
a[4]:='каникулы';
a[5]:='прыжок';
a[6]:='ура';
a[7]:='прикол';
for i:=1 to 7 do
writeln(a[i],' ', Length(a[i]));
end.
Вторая задача:
var
i, j, c:integer;
a:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
writeln('Введите эл. массива A[', i, ']');
readln(a[i]);
end;
writeln();
for i:=1 to 8 do
write(a[i], ' ');
for i:=1 to 7 do
for j:=i+1 to 8 do
if a[i]>a[j] then
begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;
writeln();
for i:=1 to 8 do
write(a[i], ' ');
end.