Дано 10 вещественных чисел. Определить количество элементов, которые меньше последнего ( Паскаль )

[студент96]

нужно написать программу, вроде все понятно, просто с вещественными числами проблема, но не так легко как с целыми, подскажите:


Дано 10 вещественных чисел. Определить количество элементов, которые меньше последнего.

[Аватар]

Ну а с целыми как бы делал?

[студент96]

program 111;
var a,s,b: integer;
begin
s:=0
if
дальше не3наюкак продолжить?

[XE5]

студент96 Читал?

[студент96]

XE5 ой простите

[Аватар]

студент96, а откуда и как 10 чисел появится в программе тоже не знаешь и не умеешь?

[студент96]

АВАТАР ну это начало 3адачи
чтоб это оформить вот так писать нужно:
Prgram 122;
var a,s,b: integer;
begin
и либо for i:=1 to 10 do / if
вот а что и3 этого выбрать я не3наю

[Аватар]

Короче ни чего не умеешь, а пишешь что понятно, но только с вещественными облом. Напиши ввод в массив с консоли или файла 10 вещественных чисел, или хоть целых

[Stilet]

Дано 10 вещественных чисел. Определить количество элементов, которые меньше последнего.

var a:array[1..10] of double; c,i:integer;
begin
 for i:=1 to 10 do readln(a[i]);
 for i:=1 to 9 do if (a[i]<a[10]) then inc(c);
 Выводишь "с"ж
end.

Понятно?

[студент96]

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

var a:array[1..10] of double; c,i:integer;
begin
 for i:=1 to 10 do readln(a[i]);
 for i:=1 to 9 do if (a[i]<a[10]) then inc(c);
 Выводишь "с"ж
end.

Понятно?

спасибо, а то я думал как часть for написать правильно..