Найбільший елемент Масиви
Задача 1 Знайти максимальний елемент масиву
a: array[1..10] of integer; ? max: integer;
a: array[1..10] of integer; 1 max: integer; 589 if a[i]>max then max:=a[i];
Пошук найбільшого елемента Припускаємо, що найбільшим є перший елемент Переглядаємо увесь масив Якщо поточний елемент більший за найбільший, то записуємо його як найбільший
program pmax; var a:array[1..10] of integer; i, max :integer; begin for i:=1 to 10 do readln(a[i]); max:=a[1]; for i:=2 to 10 do if a[i] >max then max:=a[i]; writeln(max=,max); readln; end.