Напишите программу, которая будет считывать 5 слов ввода пользователем и выводить
"You have entered: [слово 1], [слово 2], [слово 3], [слово 4], [слово 5]". Пунктуация обязательна
Ввод:
Hello
How
What
Who
Whom
Вывод:
You have entered: Hello, How, What, Who, Whom.
Пример 2
Ввод:
asd
wqe
asd
qwe
ert
Вывод:
You have entered: asd, wqe, asd, qwe, ert.
Пример 3
Ввод:
qweqweqw
asdas
asdasdsad
asdasdadada
asdasdasdasdad
Вывод:
You have entered: qweqweqw, asdas, asdasdsad, asdasdadada, asdasdasdasdad.
var M:array[1..max] of integer;
i,j,num:byte;
X:integer;
procedure readArray();
var i:byte;
begin
Write('Введите длину массива M');
Readln(num);
for i:=1 to num do begin
Write('M[',i,']=');
Readln(M[i]);
end;
Writeln();
end;
begin
readArray();
Writeln('Задача: Найти количество элементов, модуль которых меньше X');
Write('Введите X=');
Readln(X);
j:=0;
for i:=1 to num do
if Abs(M[i]) < X then
j:=j+1;
Writeln();
Writeln(j, ' элементов, модуль которых меньше ',X);
end.