Uses Crt; const n=5;m=7; var a:array[1..n,1..m]of integer; b:array[1..m]of real; i,j,k,c:integer; s:real; begin clrScr; for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(30); write(a[i,j]:4); end; end; writeln; for j:=1 to m do begin s:=0;k:=0; for i:=1 to n do if a[i,j]mod 2<>0 then begin s:=s+a[i,j]; k:=k+1; end; if k<>0 then begin c:=c+1; b[c]:=s/k; end; end; for i:=1 to c do write(b[i]:8:2); readkey; end.
from random import randint n = int(input("Введіть ширину масиву: ")) b = int(input("Введіть висоту масиву: ")) a = [[randint(10,99) for j in range(n)] for i in range(b)] par = [] for i in a: print(i,end=' ') print() print() m = [] kratna_3 = []#числа кратні 3 for x in a: for q in x: par.append(q) if q < 50: m.append(q) if q%3==0: kratna_3.append(q) #print(par) parni = par[0::2]#парни елементи ne_parni = par[1::2]#не парни елементи # #print('Парные елементи:\n',parni) print('Cумму парных элементов массива: ',sum(parni)) #print("Елементи менше 50: \n",m) print('Kоличество элементов массива, меньших 50: ',len(m)) #print("Непарные: \n",ne_parni) print("Cреднее арифметическое нечетных элементов массива: ",round(sum(ne_parni)/len(ne_parni),2))
#print("Числа кратні 3:\n",kratna_3) print("Cумму тех элементов массива, сумма индексов которых кратна трем: ",sum(kratna_3))
begin
a:=1;
b:=0;
repeat
writeln('Квадрат числа ',a,' = ',sqr(a),' Куб числа ',a,' = ',power(a,3));
a:=a+1+b;
b:=b+1;
until b>9
end.