Написать программы по следующим условиям:
1) Дана строка. Заменить в ней все имена ЛЕНА на имя КАТЯ.
2) Преобразовать строку вида <Фамилия>; <Имя>; <Отчество>; в формат: Фамилия и
инициалы
3) Дана строка. Группы символов, разделенных пробелом, назовем словами (лишних пробелов
в строке нет). Найти и вывести самое длинное слово, если их несколько, то первое из них.
P.S. строку надо придумать.
var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.
var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.