1) начало
2) скрипт(алгоритм)
3) конец
Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
2*2*300 = 4*300 = 1200 точек.
1200 точек * 24 бита = 28800 бит = 3600 байт
Program p77v;
var
p:real;
i,n:integer;
begin
Write('n='); Read(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
Writeln('П=',p)
end.
<u>Пример</u>
n=10
П=3.34284711657368
Во вложении дан контрольный пример.
<span>begin
var a: integer;
begin
if</span> a mod 2=0 then writeIn('Число является чётным')
else writeIn('Число является нечётным<span>');
end.</span>