Question

Помогите пожалуйста, это оценка очень важна!
Нужно составить задачу с использованием условного оператора.(Паскаля)

Задача:
На работу требуется кандидат, со стажем работы 5 лет. По указанной вакансии отправили анкеты 3 человека. Составьте программу, которая обработает три запроса, по заданному условию.

Answer 1

uses crt;

const n=3;

var i,s:integer;

 k:string;

 a:array[1..10] of integer;

begin

 repeat

 clrscr;

 s:=0;

 writeln('Задйате стаж работы в анкеты ');

 for i:=1 to n do begin

 write('Анкета ', i,': '); readln(a[i]);

 if a[i]>=5 then inc(s)

 end;

 writeln('По реузльтатам подходят ', s,' анкеты');

 writeln('Повторить - Enter. Выход - любой символ + Enter');

 readln(k);

 until k<>''

end.