Заполнить двумерный массив 5*5 случайными числами. найти суммы нечетных элементов(значение элементов)

Вот пример программы: uses crt; const n=5; type mas=array [1..n, 1..n]  of integer;   var i, j , sum: integer;         a: mas; begin   clrscr;   sum: =0;   for i: =1 to n do     for j: =1 to n do         a[i,j]: =10+random(90);   for i: =1 to n do     for j: =1 to  n do             if (a[i,j] mod 2< > 0) then sum: =sum+a[i,j];   for i: =1 to n do   begin     for j: =1 to n do         write (a[i,j]: 4);     writeln;   end;   writeln;   writeln(' s = ', sum);   readln; end.

Эту уже решали здесь. но, если трудно поискать, то вот программа: var a,b,c,d,x,y,z,y1,z1,y2,z2,nod: integer; begin writeln('1-я дробь (числитель и знаменатель): '); readln(a,b); writeln('2-я дробь (числитель и знаменатель): '); readln(c,d); y1: =a*d+c*b; y2: =y1; z1: =b*d; z2: =z1; while (y2> 0)and(z2> 0) do   if y2> z2 then y2: =y2 mod z2 else z2: =z2 mod y2; nod: =y2+z2; y1: =y1 div nod;   z: =z1 div nod; x: =y1 div z; y: =y1 mod z; if x> 0 then writeln(x,' ',y,'/',z) else writeln(y,'/',z); end. пример: 1-я дробь (числитель и знаменатель): 3 4 2-я дробь (числитель и знаменатель): 5 6 1 7/12

Отрицательные стороны интерната заключаются в том, что многие люди в продолжении долгого использования интернета начинают быть зависимы им. а положительная сторона - в интернете можно найти много полезной, нужной информации, притом это будет быстро и удобно.а так же конкретно  + интернета большое количесво информации, возможность быстрого и не дорогого общения, а так же обновления программного обеспечения, один из способов быстро заработать деньги, разлчные игры, много доступной для скачивания музыки и фильмов - интернета быстрое привыкание, большая зависимость - в следствии чего нарушается здоровье человека - (нервная система, зрение, и т. д.) , недостаток реального (эмоционального) общения, низкая скорость, нестабильная