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

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]);
a:=0;
b:=z[1];
c:=1;
for i:=1 to n do begin
if z[i]>0 then a:=a+z[i];
if b>z[i] then b:=z[i];
if i mod 2<>0 then c:=c*z[i];
end;
w:=b+(a/(c+1));
writeln('Otvet');
writeln('Summa pologitelnih elementov');
writeln('a = ',a:9:2);
writeln('Minimalni element massiva');
writeln('b = ',b:9:2);
writeln('Proizvedenie Elementov massiva s nechetnimi nomerami');
writeln('c = ',c:9:2);
writeln('Rezultat vichislenia formuli');
writeln('w = ',w:9:2);
readln;
end.