Question

Pascal c while, do, repeat

Answer 1

Как-то не помню про цикл do, но с циклом while и repeat (хотя лучше использовать цикл со счетчиком for) будет выглядеть так:
//с циклом while
var
  a, n, neud, i, ok: integer;

begin
  readln(n);
  i := 1;
  while i <= n do
  begin
    readln(a);
    if a < 5 then neud := neud + 1;
    if a = 10 then ok := ok + 1;  
    i:=i+1;
  end;
  writeln(neud);
  if ok > 0 then writeln('YES') else writeln('NO');
end.

// С циклом repeat
var
  a, n, neud, i, ok: integer;

begin
  readln(n);
  i := 1;
  repeat
    readln(a);
    if a < 5 then neud := neud + 1;
    if a = 10 then ok := ok + 1;  
    i:=i+1;
  until i>n;
  writeln(neud);
  if ok > 0 then writeln('YES') else writeln('NO');
end.

// с циклом for
var
  a, n, neud, i, ok: integer;

begin
  readln(n);
  for i:=1 to n do begin
    readln(a);
    if a < 5 then neud := neud + 1;
    if a = 10 then ok := ok + 1;  
  end;
  writeln(neud);
  if ok > 0 then writeln('YES') else writeln('NO');
end.