Program Program1;
function maximum(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
var
mas:array [1..100] of integer;
i,k,max:integer;
begin
write('Введите кол-во чисел: ');
readln(k);
for i:=1 to k do
begin
write('A',i,'=');
readln(mas[i]);
end;
max:=mas[1];
for i:=2 to k do
max:=maximum(max,mas[i]);
writeln('Максимальное число=',max);
end.
1. Наперсток предназначен для защиты пальца от проколов во время работы.
2. Соблюдай порядок на своем рабочем месте.
Перед работой проверь исправность инструментов.
Не работай ножницами с ослабленным креплением.
Работай только исправным инструментом: хорошо отрегулированными и заточенными ножницами.
Работай ножницами только на своем рабочем месте.
Следи за движением лезвий во время работы.
Ножницы клади кольцами к себе.
Подавай ножницы кольцами вперед.
Не оставляй ножницы открытыми.
Храни ножницы в чехле лезвиями вниз.
Не играй с ножницами, не подноси ножницы к лицу.
Используй ножницы по назначению.
3. Нельзя втыкать иголки и булавки в одежду, мебель, брать их в рот. До и после работы пересчитывать иголки и булавки. При уколе пальца иглой следует выдавить две-три капли крови и смазать ранку йодом. Ножницы следует хранить в специальном чехле.
var a:array [1..100] of real;
i,n:integer;
max:real;
Begin
writeln("Введите кол-во чисел");
read(n);
for i := 1 to n do
read(a[i]);
max:=a[1];
for i:=2 to n do
if max<a[i] then
max:=a[i];
write(max);
End.