1)Найти треть произведения элементов кратных три массива А (4,7) водимого из блока данных 
2)Матрица А (К,К) формируется датчиком случайных чисел из интервала (10,45). Найти пятую часть произведение элементов последней строки матрицы кратных 5 и сумму положительных элементов главной диагонали. Определить разность полученных элементов 
3)Матрица А (9,9) формируется датчиком случайных чисел из интервала (12,55). Найти среднее арифметическое значение нечетных по значению элементов последнего столбца матрицы и сумму элементов больших 25 главной диагонали матрицы 
4)Длина матрицы А (5,5) элементы которые формируются датчиком случайных чисел из интервала(-20,70) Найти среднее арифметическое значение нечетных по сравнению элементов побочной диагонали.

5)Длина матрицы А (5,5) элементы которые формируются датчиком случайных чисел из интервала(-40-10) Найти среднее арифметическое значение нечетных по сравнению элементов главной диагонали. 6)Длина матрицы С (К,К) найти половину сумы элементов побочной диагонали , больших 5 7)Длина матрицы С (5,5)найти среднее арифметическое значение элементов диагоналей матрицы С 8)Длина матрицы С (7,7)найти среднее арифметическое значение элементов побочной диагонали и половину суммы элементов главной диагонали матрицей С

1)program zadacha1;uses crt;var b,i,j:integer; c,pr:real; a:array [1..4,1..7] of integer;beginclrscr;pr:=1;for i:=1 to 4 dobegin for j:=1 to 7 do begin readln(a[i,j]); end;end;for i:=1 to 4 dobegin for j:=1 to 7 do begin if (a[i,j] mod 3) = 0 then pr:=pr*a[i,j]; end;end;pr:=pr/3;writeln(pr:2:3);readkey;end.2)program zadacha2;uses crt;const k=8;var b,i,j,sum:integer; c,pr:real; a:array [1..k,1..k] of integer;beginrandomize;clrscr;pr:=1;for i:=1 to k dobegin for j:=1 to k do begin a[i,j]:=random(36)+10; end;end;for i:=1 to k dobegin for j:=1 to k do write(a[i,j],' '); writeln;end; for j:=1 to k do begin if (a[k,j] mod 5) = 0 then pr:=pr*a[i,j]; end;for i:=1 to k dobegin for j:=1 to k do begin if (i=j) and (a[i,j] > 0) then sum:=sum+a[i,j]; end;end;writeln('Prozvedenie ',pr:2:2);writeln('Summa ',sum);writeln('Raznostb ',pr-sum:2:2);readkey;end.3)program zadacha3;uses crt;const k=9;var b,i,j:integer; sred,sum,l:real; a:array [1..k,1..k] of integer;beginrandomize;clrscr;for i:=1 to k dobegin for j:=1 to k do begin a[i,j]:=random(55-12+1)+12; end;end;for i:=1 to k dobegin for j:=1 to k do write(a[i,j],' '); writeln;end;for i:=1 to k dobeginif (a[i,k] mod 2) = 1 then begin l:=l+a[i,k]; b:=b+1; end;end;sred:=l/b;for i:=1 to k dobegin if a[i,i]>25 then sum:=sum+a[i,i];end; writeln;writeln('Srednee ',sred:2:2);writeln('Summa ',sum:2:1);readkey;end.4)program zadacha4;uses crt;const k=5;var b,i,j:integer; sred,sum,l:real; a:array [1..k,1..k] of integer;beginrandomize;clrscr;for i:=1 to k dobegin for j:=1 to k do begin a[i,j]:=random(91)-20; end;end;j:=k;for i:=1 to k dobegin if (a[i,j] mod 2)<> 0 then begin l:=l+a[i,j]; b:=b+1; end; j:=j-1;end;sred:=l/b;for i:=1 to k dobegin for j:=1 to k do write(a[i,j],' '); writeln;end; writeln;writeln('Srednee ',sred:4:2);readkey;end.5)program zadacha5;uses crt;const k=5;var b,i,j:integer; sred,sum,l:real; a:array [1..k,1..k] of integer;beginrandomize;clrscr;for i:=1 to k dobegin for j:=1 to k do begin a[i,j]:=random(31)-40; end;end;j:=k;for i:=1 to k dobegin if (a[i,j] mod 2)<> 0 then begin l:=l+a[i,j]; b:=b+1; end; j:=j-1;end;sred:=l/b;for i:=1 to k dobegin for j:=1 to k do write(a[i,j],' '); writeln;end; writeln;writeln('Srednee ',sred:4:2);readkey;end.6)program zadacha6;uses crt;const k=6;var b,i,j:integer; sred,sum,l:real; a:array [1..k,1..k] of integer;beginrandomize;clrscr;for i:=1 to k dobegin for j:=1 to k do begin a[i,j]:=random(21); end;end;j:=k;for i:=1 to k dobegin if a[i,j]>5 then begin l:=l+a[i,j]; end; j:=j-1;end;l:=l/2;for i:=1 to k dobegin for j:=1 to k do write(a[i,j],' '); writeln;end; writeln;writeln('Sum ',l:2:2);readkey;end.7)program zadacha7;uses crt;const k=5;var b,i,j:integer; pred,sum,l:real; a:array [1..k,1..k] of integer;beginrandomize;clrscr;for i:=1 to k dobegin for j:=1 to k do a[i,j]:=random(10);end;j:=k;for i:=1 to k dobegin l:=l+a[i,j]; j:=j-1;end;for i:=1 to k dobegin for j:=1 to k do write(a[i,j],' '); writeln;end;for i:=1 to k dobegin sum:=sum+a[i,i];end;pred:=sum+l;writeln('Sum ',pred/10:2:2);readkey;end.8)program zadacha8;uses crt;const k=5;var b,i,j:integer; pred,sum,l:real; a:array [1..k,1..k] of integer;beginrandomize;clrscr;for i:=1 to k dobegin for j:=1 to k do a[i,j]:=random(10);end;j:=k;for i:=1 to k dobegin l:=l+a[i,j]; j:=j-1;end;l:=l/k;for i:=1 to k dobegin for j:=1 to k do write(a[i,j],' '); writeln;end;for i:=1 to k dobegin sum:=sum+a[i,i];end;sum:=sum/2;writeln('Sum ',sum:2:2);writeln('Sred',l:2:2);readkey;end.