Одномерный массив размером [10]заполнить числами с клавиатуры, найти max и min элементы и сумму четных элементов массива.

Const n=10; var a: array[1..10] of integer; min,max,i,summa: integer; begin for i: =1 to n do   begin  write('введите элемент' ,i,': ');   read(a[i]);   end;     min: =a[1];   for i: =1 to n do   begin    if a[i]< min then   begin  min: =a[i];     end;   end;   writeln('min: ',min);       max: =a[1];   for i: =1 to n do   begin  if a[i]> max then    begin  max: =a[i];   end;     end;   writeln('max: ',max);     summa : = 0 ;       for i: =1 to n do  begin if (a[i] mod 2 = 0) then  summa : = summa + a[i]    end;     writeln('сумма четных элементов равна : ', summa);     readln; end.

Существует два вида шрифтов 1 - растровые 2 - векторные векторные шрифты: у них нет готовых шрифтов, вместо этого есть алгоритм их построения, с которого каждая следующая буква печатается по новой, данные шрифты можно приближать на приличные расстояния, точек можно не увидеть. растровые шрифты: имеют готовые шрифты. строятся в виде битового массива точек - растра. в стандартном ввиде шрифта, данный растровый шрифт может даже лучше отображаться, нежели векторные. храняться данные шрифты в папке fonts   (c: /windows/fonts)

1. var x: integer; y: real; begin write('введите значение аргумента "x" : '); readln(x); y: =3*cos((5*x)); writeln('значение функции "y" = ',y); readln; end.2.varx,b: integer; beginwrite('введите количество молока, полученного за день, л : '); readln(x); write('введите количество дней : '); readln(b); writeln('количество молока, полученного за заданный промежуток времени = ',x*b); readln; end.   3.vara,b,c: integer; beginwrite('введите двузначное число: '); readln(a); b: =a div 10; c: =a mod 10; writeln(b,#10,c); end.4.varb: integer; a: longint; beginwrite('введите целое число: '); readln(a);   b: =a div 100 mod 100; writeln(b); readln; end.5.  vara,b: integer; beginwrite('введите числа : '); readln(a,b); if a and b mod 2=0 then  writeln(a+b); if a and b mod 2< > 0 then  writeln(a*b); readln; end. {про последнее "иначе", увеличьте все числа в пять раз и выведите результаты" не оба чётные - сумма, если оба - нечётные - то произведение. а если иначе, то число должно быть равно нулю. смысл увеличивать его в пять раз? )}