Блок схемы алгоритма
Листинг программы
PROGRAM Zadanie4; uses crt; var V,M:array[1..39] of integer; i, b,a,c,n,j,r:integer; sum:real; begin clrscr; writeln('Ввод массива'); randomize; for i:=1 to 39 do; begin b:=random(20)-10; V[i]:=b; end; for i:=1 to 39 do write(V[i],' '); writeln; writeln('программа 2'); n:=0; sum:=1; for i:=19 to 39 do begin if v[i] mod 2=0 then sum:=sum*V[i]; n:=n+1; end; if sum<0 then sum:=sum*(-1); write(sum,' '); if sum<>0 then writeln('среднегеометрическое=', exp((1/n)*ln(sum)):5:2) else writeln('сумма равна 0'); writeln('программа 3'); writeln('число С->'); readln(C); r:=1; for i:=1 to 39 do if (abs(V[i]-c)<abs(V[r]-c)) and (V[i]>0) then r:=i; writeln('Ближайшое число к ',C,' ->',V[r]); writeln('программа 4'); for j:=19 to 39 do for i:=19 to 39 do begin if abs((V[j]*2))<abs((V[i]*2)) then begin a:=V[j]; V[j]:=V[i]; V[i]:=a; end; end; for i:=19 to 39 do write(V[i],' '); writeln; writeln('END'); end.
|
