Какую задачу выполняет программа program pr1; var a: array [1..5] of integer; max,i: integer; begin for i:=1 to 5 do readln(a[i]); max:=a[1]; for i:=2 to 5 do if a[i]>max then max:=a[i]; writeln( max); end.
Находит максимум среди 5 введенных чисел и выводите его
Находит максимум среди 5 введенных целых чисел и выводит его.