написанные программы / лаба № 4 с отчетом — 2 / LABA4

program lab4;
uses crt;
const n=10;
var z:array[1..n] of real;
i:integer;
a,b,c,w:real;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do
readln(z[i]);
b:=1;
a:=z[1];
c:=0;
for i:=1 to n do begin
if z[i]>a then a:=z[i];
if i mod 2=0 then b:=b*z[i];
if z[i]<0 then c:=c+z[i];
end;
w:=a*b/(c+2);
writeln('Otvet');
writeln('naibolshii element massiva');
writeln('a = ',a:9:2);
writeln('proizvedenie elementov massiva s chetnimi #');
writeln('b = ',b:9:2);
writeln('summa otritsatelnih elementov massiva');
writeln('c = ',c:9:2);
writeln('Rezultat vichislenia formuli');
writeln('w = ',w:9:2 );
readln;
end.