Задача на массив Опции

[Kreaman]

Здравствуйте, уважаемые форумчане....У меня вот проблемка, я уже раза завалил экзамен по программированию, никак не получается у меня с массивами и строками...

Кто может пожалуйста напишете решение....заранее очень благодарен)...

1. Массив Х задан как типизированая контстанта. Х(1.4;10;2;5;6.7;23.7;22;7.5). Вычислить и вывести на экран количество элементов, которые не больше за число 10.


Сообщение отредактировано: Kreaman - 30.01.2008 21:10

[Станник]

Здравствуйте, уважаемые форумчане....У меня вот проблемка, я уже раза завалил экзамен по программированию, никак не получается у меня с массивами и строками...

Кто может пожалуйста напишете решение....заранее очень благодарен)...

1. Массив Х задан как типизированая контстанта. Х(1.4;10;2;5;6.7;23.7;22;7.5). Вычислить и вывести на экран количество элементов, которые не больше за число 10.

Вот набросал...Написано немного некрасиво, но вроде работало...

uses
crt;
const
x: array [1..12] of integer=(1,4,10,2,5,6,7,23,7,22,7,5);
var
i,j:integer;
begin
clrscr;
for i:=1 to 12 do    {Число элементов массива, параметр цикла}

  if x[i]<10 then
   begin
   j:=j+1;          {Счетчик  количества чисел <10}
   writeln(x[i]);
   end;
    writeln('Число элементов ',j);
    readln;
end.