Найбільший елемент Масиви. Задача 1 Знайти максимальний елемент масиву. - презентация

1 Найбільший елемент Масиви

2 Задача 1 Знайти максимальний елемент масиву

3 a: array[1..10] of integer; ? max: integer;

4 a: array[1..10] of integer; 1 max: integer; 589 if a[i]>max then max:=a[i];

5 Пошук найбільшого елемента Припускаємо, що найбільшим є перший елемент Переглядаємо увесь масив Якщо поточний елемент більший за найбільший, то записуємо його як найбільший

6 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.