Паскаль. Никак не въеду в задачу.

[svobodys]

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

[albatros]

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

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

Короче, отвечу я тебе на pascale
Запихиваем все 20 чисел в одномерный массив
Находим в массиве максимальный элемент:

program youzadacha;
var
a: array[1..20] of real;{* взависимости какой диапозон (single, double, 
extended)*}
max: real;
i: byte;
begin
for i:=1 to 20 do
begin
writeln('Введите число');
readln(a[i]);
end;
max:=0;
for i:=1 to 20 do
begin
if a[i]>max then
max:=a[i];
end;
writeln('Наибольшее значение:',max);
end.

[alex_fcsm]

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

Короче, отвечу я тебе на pascale
Запихиваем все 20 чисел в одномерный массив
Находим в массиве максимальный элемент:

Наверное еще нужно посчитать сколько раз он встречается

var a: array[1..20] of real;{* взависимости какой диапозон (single, double,
extended)*}
     i,j,max: byte;
begin
for i:=1 to 20 do
begin
writeln('Введите число');
readln(a[i]);
end;
max:=1;j:=1;
for i:=1 to 20 do
begin
if a[i]>a[max] then begin
                      max:=i;
                      j:=1;
                    end
    else if a[i]=a[max] then inc(j);
end;
writeln('Наибольшее значение:',max,' встречается ',j,' раз');
end.