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

#include <stdafx.h> #include <stdio.h> #include <locale.h>     int main() {     setlocale(LC_ALL,"RUS");     char str[] = "манрра, фр а алвл в во вовлл.";     int s = 0, i = 0, n = 0, u = 0;     int j;     for(j = 0; str[j]; j++){         if(str[j] == 'е')             s++;         if(str[j] == 'е')             i++;                     n++;         if(str[j] == 'е')             u++;                     break;     }     if(s == 1 && i == 1 && n == 1 && u == 1 )         printf("\n OK");     else printf("\n FAIL"); return 0; }

честно, я не знаю, вот оригинал, если нужно

#include <stdafx.h> #include <stdio.h> #include <locale.h>     int main() {     setlocale(LC_ALL,"RUS");     char str[] = "манрра, фр а алвл в во вовлл.";     int s = 0, i = 0, n = 0, u = 0;     int j;     for(j = 0; str[j]; j++){         if(str[j] == 'ф')             s++;         if(str[j] == 'а')             i++;         if(str[j] == 'й')             n++;         if(str[j] == 'л')             u++;         if(str[j] == '.')             break;     }     if(s == 1 && i == 1 && n == 1 && u == 1 )         printf("\n OK");     else printf("\n FAIL"); return 0; }

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   {подсчет суммы}

   write('x = ');

   readln(x);

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.