Question

ПОМОГИТЕ СРОЧНО, НАДО НАПИСАТЬ НА ПАСКАЛЕ

Answer 1

Ответ:

• var a: array [1..200] of smallint; n,s: byte;
• begin
•  read(n);
•  for var i := 1 to n do
•    begin
•      read(a[i]);
•      if (a[i].ToString.Length=2) and (a[i] div 10 = 7) then s:=s+1;
•    end;
•    write(s);
• end.

или

• begin
•  ReadArrInteger(ReadInteger).Count(x->(x in 10..99) and (x div 10 = 7)).Print
• end.

Примеры работ: