//Во-первых, строку нужно принимать через gerline, ибо через cin у вас в строку запишутся символы до первого пробела. Во -вторых, поиск слов из 3 символов выполнен неправильно, точнее он сработает в одном только случае, если вы введете строку из 3 символов, и то выведет 3 раза одно и то же слово.
//Вот как сделал я:
#include <iostream>
using namespace std;
int main() { string str;
int Size; int ArrIndex = 0;
cout « "Enter string: "; getline (cin, str);
string Element[str.length()];
for (int i = 0; i < str.length(); i++) { if (str[i] != ' ' && str[i] != '.') Element[ArrIndex] += str[i];
//Вот как сделал я:
#include <iostream>
using namespace std;
int main()
{
string str;
int Size;
int ArrIndex = 0;
cout « "Enter string: ";
getline (cin, str);
string Element[str.length()];
for (int i = 0; i < str.length(); i++)
{
if (str[i] != ' ' && str[i] != '.')
Element[ArrIndex] += str[i];
else
ArrIndex++;
}
cout « endl;
for (int j = 0; j < str.length(); j++)
{
Size = 0;
for (int k = 0; k < Element[j].length(); k++)
Size++;
if (Size == 3)
cout « Element[j] « endl;
}
return 0;
}
const N = 30;
var a : array[1..N] of integer;
i, j, x : integer;
Begin
for i := 1 to N do readln(a[i]);
readln(x);
for i := 1 to N do begin //перебираем элементы массива
if a[i] = x then begin //если находим элемент равный Х то
writeln('наименьший номер элемента равного X - ', i); //выводим сообщение
exit; //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер
end;
end;
writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение
end.
Объяснение:
объяснения в комментариях программы
проверено на PascalABC