Программа на одномерные массивы

[Ekatharina]

Последовательность действительных чисел оканчивается ну¬лем. Найти количество членов этой последовательности.

умные люди помогите!!!!

[Sazary]

количество = 0
пока текущий член не равен 0
 {
  количество = количество + 1
  переходим к следующему члену
 }

[Ekatharina]

а тебя не затруднит написать полностью код? а то я ваще в составлении программ в паскале полный ноль

[Sazary]

uses crt;
var
count : integer;
a : real;
begin
clrscr;
count := 0;
readln(a);
while a<>0 do
 begin
 inc(count);
 readln(a);
 end;
writeln('count = ',count);
readln;
end.

или

uses crt;
var
count : integer;
a : real;
begin
clrscr;
count := -1;
repeat
inc(count);
readln(a);
until a=0;
writeln('count = ',count);
readln;
end.

а то я ваще в составлении программ в паскале полный ноль

А это поправимо. Хотя и зависит только от вас.

[Ekatharina]

Мне это не дано(
Спасибо большое! тока чета не работает...(
пишет что вот это чета неправильно clrscr

[Вавел из ГМТУ]

Это код для паскаля. Вам на чём надо хоть?

[Ekatharina]

На паскале

[Sazary]

Сообщение от Ekatharina

пишет что вот это чета неправильно clrscr

Все работает и в TP7 и в FPC.
В принципе, можете удалить строчки clrscr (очистка экрана) и "uses crt".

Сообщение от Ekatharina

пишет что вот это чета неправильно clrscr

Есть такое понятие, как текст ошибки, который хорошо бы приводить.

Сообщение от Ekatharina

Мне это не дано(

Проще всего так сказать и ничего больше не делать.
С таким подходом зачем вы вообще учитесь?

[Ekatharina]

дак я не на программиста учусь)
спасибо еще раз