ПОМОГИТЕ, ПОЖАЛУЙСТА! 1) Задать символьный массив из 7 слов (мама, ель, парта, каникулы, прыжок, ура, при-кол). Вывести элементы массива в столбик, с каждым элементом вывести его длину. 2). Задать числовой массив из 8 элементов...
ПОМОГИТЕ, ПОЖАЛУЙСТА!
1) Задать символьный массив из 7 слов (мама, ель, парта, каникулы, прыжок, ура, при-кол). Вывести элементы массива в столбик, с каждым элементом вывести его длину.
2). Задать числовой массив из 8 элементов. Данные вводить с клавиатуры. Упорядочить элементы массива по возрастанию. Вывести исходный и упорядоченный массивы на экран.
Паскаль.
Гость
Ответ(ы) на вопрос:
ГостьПервая задача:
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.
Не нашли ответ?
Похожие вопросы