Var s,r,k: string; j: integer; begin write('строка: '); readln(s); foreach k in s.Split(' ').Distinct do begin j:=0; foreach r in s.Split(' ') do if r=k then j:=j+1; writeln('слово ','"',k,'"',' встречается ',j,' раз'); end; end.
1.Запрещено самостоятельно разбирать компьютер и все его комплектующие. При возникновении неисправностей необходимо обратитьсяВсе кабели, соединяющие системный блок с другими устройствами, следует вставлять и вынимать только при выключенном компьютере. Исключение составляют USB-устройства: они могут быть подключены к включенному компьютеру;Запрещено самостоятельно устанавливать, удалять, деактивировать и изменять программное обеспечение и сетевые настройки на компьютере.Запрещено подвергать компьютер и периферийные устройства физическим, термическим и химическим воздействиям. (Нельзя сидеть на компьютере, проливать на него чай, кофе, просыпать семечки, ставить у батареи и других нагревательных приборов);При отключении электроэнергии источник бесперебойного питания (ИБП) позволяет компьютеру оставаться в рабочем состоянии от 5 до 20 минут. При отключении электроэнергии в помещении пользователь должен в немедленном порядке провести правильное выключение компьютера.В случае обнаружения неисправности компьютерного оборудования или программного обеспечения, пользователь должен обратиться в службу тех поддержки
1) Начало; 2) Инициализация необходимых переменных , массива[1..5,1..5] и переменной для хранения MAX элемента; 3) Подключение библиотеки randomize; 4) Запуск Первого цикла со счетчиком от 1 до 5; 4.1) запуск Второго (Вложенного) цикла со счетчиком от 1 до 5; 4.1.1) Заполнение первой строки массива рандомными значениями; 4.1.2) Заполнение первой строки String grid -a; 4.1.2) Сравниваем текущий элемент массива с MAX элементом; 4.1.2.1) Если текущий элемент массива больше текущего МАХ элемента (который по умолчанию равен 0) то Перезаписывеам MAX элемент на элемент массива;
Ждем окончания циклов в результате работы которых String grid будет заполнен А в переменной MAX элемента будет содержаться максимальный элемент массива. 5) Выводим MAX элемент массива в Edit;
Как то так. Если не понятно что то можно в лс или коменты.
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
end.