Написать программку в которой ввести с клавиатуры 5 значений типа string.

Написать программку в которой ввести с клавиатуры 5 значений типа string. Найти есть ли значения гимназия 2.Если есть вывести подходящий текст, в противном случае тоже вывести. Помогите пожалуйста))))) 10б

Задать свой вопрос
Агата Утарова
Что за подходящий текст? "Да", "Нет"?
Василиса Лакотейко
Это означает если есть программка в которой можно ввести этот тип тон ее надобно написать , если нет,то тоже надобно написать
1 ответ
Var s:array[1..5] of string;
b:boolean;
i:integer;
begin;
b:=false;
for i:=1 to 5 do
 begin;
  readln(s[i]);
  if s[i]='гимназия' then b:=true;
end;
if b=true then writeln('Да') else writeln('Нет');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт