Составьте программу которая формирует массив из 40 случайных целых чисел то 0 до 20 и вычисляет сумму чисел не привышающих 10

var

a: array[1..40] of integer;

i, sum: integer;

begin

sum : = 0;

for i: =1 to 40 do

begin

a[i]: = random(21);

if a[i] < = 10

sum: = sum + a[i]

end;

writeln (sum);

end.

Var a: array of array of integer; c: array of array of integer; ma: array of array of integer; i,j,n: integer; begin; randomize; readln(n); setlength(a,n+1); //задаём размерность динамических массивов setlength(c,n+1); setlength(ma,n+1); for i: =1 to n do begin; setlength(a[i],n+1); setlength(c[i],n+1); setlength(ma[i],n+1); end; writeln('matrix a: ');   //генерируем массив псеводслучайных чисел for i: =1 to n do  begin;   writeln;   for j: =1 to n do     begin;     a[i,j]: =random(10);     write(a[i,j]: 4);     end;   end; writeln; writeln('matrix c: '); //аналогично for i: =1 to n do   begin;   writeln;   for j: =1 to n do     begin;     c[i,j]: =random(10);     write(c[i,j]: 4);     end;   end; for i: =1 to n do     //сохраняем матрицу c для транспонации   for j: =1 to n do     ma[i,j]: =c[i,j];       writeln; writeln('transpose matrix c: '); //транспонируем c for i: =1 to n do   begin;   writeln;     for j: =1 to n do     begin;       c[i,j]: =ma[j,i];       write(c[i,j]: 4);     end;   end; writeln; writeln('final matrix: '); // получаем финальную матрицу for i: =1 to n do   begin;   writeln;     for j: =1 to n do     begin;       ma[i,j]: =2*c[i,j]*a[i,j]; {по свойству дистрибутивности матриц с(a+a)=c*a+c*a=2*c*a}       write(ma[i,j]: 4);     end;   end; end.

Var     a: array of integer; //  динамический массив     n,i: integer;     flag: boolean;   begin   readln(n);   setlength(a,n); // выделение памяти    randomize;   for i: =0 to n-1 do       a[i]: =random(1000);   flag: =false;   for i: =0 to n-1 do     if (a[i] div 100)> 0 then         begin       write (a[i]: 4);       flag: =true;       end;   if not(flag) then writeln('таких цифр нет');   end.