Решить при помощи паскаль:задан одномерный массив датчиком случайных чисел состоящий из...

Question

Решить при помощи паскаль:задан одномерный массив датчиком случайных чисел состоящий из 10 элементов вывести на экран max- элемент

Answer 1

Var
    arr: array[1..10] of integer;
    i, max: integer;

begin
    randomize;
    max := 0;
    for i:=1 to 10 do
    begin
        arr[i] := random(100);
         if arr[i] > max then
         begin
            max := arr[i];
        end;
      end;
    
    writeln('Max element is: ');
    writeln(max);
end.

Comments

не идёт и вообщето в пасаль ABC.net

---

ясно-понятно, сразу уточнить в описании нельзя ж было. Хотя суть только в использовании одной несуществующей функции lenght() в ABC

---

переделал, лишнее убрал