Нужно составить 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.

259

323

Посмотреть ответы 1

Ответы на вопрос:

мила0770

Информатика

4,8(45 оценок)

Var r, t, n,sum, sumk: real; i: integer; beginn: =0; r: =0; t: =0; for i: =50 to 100 do beginwrite(i: 3); n: =n+1; if i mod 2=0 then sum: =sum+i; if i mod 3=0 then sumk: =sumk+i; end; writeln; write ( ' четные ', sum: 4, ' кратные 3 ', sumk: 4, ' sum - sumk ', (sum - sumk): 4); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.