Напишите программы в abc паскале : 1)надо ввести три числа и найти из них наибольшее; 2)надо ввести пять чисел и найти из них наибольшее заранее !

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.

program program1;

function maximum(a,b: integer): integer; beginif a> b then result: =a else result: =b; end;

varmas: array [1..100] of integer; i,k,max: integer; beginwrite('введите кол-во чисел: '); readln(k); for i: =1 to k dobeginwrite('a',i,'='); readln(mas[i]); end; max: =mas[1]; for i: =2 to k domax: =maximum(max,mas[i]); writeln('максимальное число=',max); end.

const

  n = 15;

var

  a: array[1..15] of real;

  temp: real;

  i: integer;

begin

  randomize;

  writeln('исходный массив: ');

  for i : = 1 to n do

  begin

      a[i] : = (random(101) - 50) / 10;

      write(a[i], ' ');

  end;

  writeln;

  temp : = a[5];

  a[5] : = a[10];

  a[10] : = temp;

  writeln('преобразованный массив: ');

  for i : = 1 to n do

      write(a[i], ' ');

  writeln;

end.

var

  x, y, p, year: integer;

  summ: real;

begin

  readln(x);

  readln(p);

  readln(y);

  summ : = x;

  year : = 0;

  while summ < y do

  begin

      summ : = (trunc(summ * (1 + p / 100) * 100)) / 100;

      year : = year + 1;

  end;

  writeln(year);

end.

 

 

// другой вариант

var  x, y, p, year, summ: integer; begin  readln(x);   readln(p);   readln(y);   summ : = x * 100;   year : = 0;   while summ < y * 100 do  begin      summ : = trunc(summ * (1 + p / 100));       year : = year + 1;   end;   writeln(year); end.