vanyaburundukov

16.03.2022 18:21 •  Информатика

Нужно составить 2 блок схемы,на 2 программы.Нужно очень кто разбирается.
1)const
n = 10;

var
a: array[1..n, 1..n] of real;
d, i, j: integer;

begin
d := 0;
writeln('Матрица А: ');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := sin((i * pi) / 4) + cos((j * pi) / 4);
write(a[i, j]:7:2);
if (a[i, j] > 0) and (not odd(trunc(a[i, j]))) then
d := d + 1;
end;
writeln;
end;
write('D: ', d);
end.
2)const n=20;
var x:array[1..n] of real;
a,s:real;
i,k:integer;
begin
writeln('Массив Х');
a:=0;
for i:=1 to n do
begin
if i=10 then x[i]:=0
else if i<10 then x[i]:=-exp(ln(10-i)/3)
else x[i]:=exp(ln(i-10)/3);
write(x[i]:7:2);
a:=a+x[i];
if i mod 10=0 then writeln;
end;
a:=a/n;
writeln('Среднее арифметическое a=',a:0:2);
s:=0;
k:=0;
for i:=1 to n do
if x[i]>a then
begin
s:=s+x[i];
k:=k+1;
end;
write('Сумма элементов больших ',a:0:2,'=',s:0:2,' Количество=',k);
end.