Дан массив символов, образующий несколько слов. Вывести на экран слово с максимальным количеством гласных букв. Основной код я сделал и он правильный, осталось только найти максимальное кол-во гласных букв в слове и вывести это слово
код:
program lab_14;
const n=30; {максимальная размерность массива}
var a: array[1..n] of char; {объявление одномерного символьного массива}
kol: integer; {переменная для нахождения количества введенных слов}
k: integer; {вс переменная для хранения количества введенных
символов}
i: integer; {счетчик цикла}
begin
{Ввод с клавиатуры длины исходной строки}
writeln('Укажите суммарную длину вводимой строки, включая пробелы. Строка
не должна превышать', n , 'символов.');
k:=0;
repeat {Вводим ограничение на вводимое значение k}
readln(k)
until (k>1) and (k<30);
writeln('Введите строку и в конце нажмите клавишу Enter. Максимальная длина
введенной строки', k , 'символов, включая пробелы.');
{Ввод исходной строки}
for i:=1 to k do
read(a[i]);
{Первоначально предполагаем, что пользователь не ввел ни одного слова}
kol:=0;
{Вывод на экран введенной строки}
writeln('Исходная строка:');
for i:=1 to k do
write(a[i]);
writeln;
1.Создайте макрос с именем (к примеру) "Моё меню"
2.В этом макросе добавляем пункты меню следущим образом: Для каждого пункта меню, создаём "Вложенный макрос". Название каждого вложенного макроса - будет названием пункта меню.
3.В каждом вложенном макросе должна быть хотя бы одна команда. Хотя бы просто "Примечание". Иначе, он в списке не появится.
4.Чтобы вставить разделитель, называем нужный вложенный макрос именем "-" (минус) и добавляем примечание
5.Чтобы сделать быструю кнопку к пункту меню, перед нужной буквой в названии макроса вставляем "&"
6.Ну и естественно, в каждом вложенном макросе реалиуем необходимый функционал либо через макрокоманды, либо через "ЗапускПрограммы"
Объяснение:
на одном языке программирования написали другой
2 текст на английском нужно перевести на русский дабы все пользователи поняли, и конечно же переведенный мануал где нить как нить запомнили(хоть в электронном виде хоть распечатали, хоть от руки написали)
3 ОГРОМНАЯ база данных хранит огромное количество данных на всем предприятии, ее разбили на части и дали каждому отделу лишь то что необходимо им
4 пришел к другу копирнул фильм на флешку, дабы посмотреть дома
5 мне сказали что нельзя совать вилку в розетку(вроде причину я тогда еще не понял, но воспринял и не совал)
6 передаем сообщение(хоть смс, хоть азбуку морзе) везде есть измерения количества информации, а здесь зачастую спрашивают минимальное количество информации необходимое для передачи маленьких сообщений
7 мне по скайпу кинули картинку я ее принял
8 а вот пока мне ее кидали я ее принимал, был процесс передачи
9 вирус залез на комп и стер базу данных какую нить
10 идентично 8 же разве нет?
Объяснение: