В компьютере больше функций,чем в калькуляторе
Var n,i,max:integer;
a:array [1..1000] of integer;//объявляем массив
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do begin
readln(a[i]);
if a[i]>max then
max:=i;
end;
writeln('Индекс максимального элемента массива =', max);
end.
Будет выведено 5 цифр до запятой и после запятой. Например, если число 12345,6789, то он выведет 12345,6
327680 - информационный вес в битах/10240(20*64*8)=32