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

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

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

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 6. Одна тема - один вопрос (задача) В этой теме оставляй одну, для второй открывай новую.

а от того, что мы напишем, у тебя станет "получаться с массивами и строками"?

Я хоть пойму как оно всё делаеться, просто модульная работа состоит из одинаковіх заданий, и если ві мне поможете сделать их, то я смогу разобраться в них!

Простенькая задача на массив, смотри FAQ и спрашивай что именно не понятно

Вам простенькая, а мне ничего не понятно, так как материала эатакого я не где не видел, а с похожими задачами у мня голова не сможет слепить одну...не можете помочь, так и скажите, не надо мня куда то там на страницы посылать, почитай мол то, почитай это, я попросил сделайте кто может...

посмотри следующую задачу, которая суммирует элементы не равные трём...

const
  my_ar: array [1..4] of integer=(      
      1,2,3,4
    ) ;
var
        i, s: integer;
begin
        s:=0;
        //low() - возвращает порядковый номер первого элемента(1)
        //high() - последнего элемента(4)
        for i := low(my_ar) to high(my_ar) do
                if my_ar[i] <> 3 then s := s+my_ar[i];
        writeln(s);
end.

теперь учти
1) элементы массива у тебя real, а не integer
2) другое условие сравнения( у тебя больше десяти, вместо <>3)

теперь пробуй сам, не получится спрашивай...

Ты что правда сомневаешься, что тебе тут никто помочь не может? зря...

а вот это действительно сомнительно...
Ты бы сам что-нить сделал и в правду, и тогда тебе бы сразу помогли

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

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.

Станник, j хорошо бы обнулить.
И "не больше" - это меньше или _равно_.

Станник, (1,4,10,2,5,6,7,23,7,22,7,5) и (1.4;10;2;5;6.7;23.7;22;7.5) отличаются, не так ли?

Писал быстро, мож че и забыл...тут главное алгоритм...