Обработка массивов данных

[Student1]

Здравствуйте. Мало что понимаю в программировании, поэтому обращаюсь с просьбой написать код программы. Помогите пожалуйста. Заранее благодарен!

Входной массив: A5x5
Формируемый массив: B5x5, где b[i,j]=i*cos(i+j)
i=1,...,5 j=1,...,5
Условие задачи: Для каждой из матриц A и B найти количество элементов, больших 2.5 (NA и NB соответственно).

[Neser]

Ето на каком языке нужно?
Если на словах - перед циклом ставиш счетчик, припустим k=0;, и в цикле, когда елемент больше 2.5 делаеш инкремент k++;
Уточни язык

[Novi4ok_11]

Язык программирования укажите

[NiCola999]

100 руб, ася ниже

[Student1]

Прошу прощения, Pascal

[Novi4ok_11]

uses crt;
var a:array [1..5,1..5] of real;
b:array [1..5,1..5] of real;
i,j,na,nb:integer;
begin
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do readln(a[i,j]);

for i:=1 to 5 do
for j:=1 to 5 do b[i,j]:=i*cos(i+j);

for i:=1 to 5 do begin writeln;
for j:=1 to 5 do write(' ',a[i,j]:0:2); end;

for i:=1 to 5 do begin writeln;
for j:=1 to 5 do write(' ',b[i,j]:0:2); end;

for i:=1 to 5 do
for j:=1 to 5 do 
begin
if a[i,j]>2.5 then na:=na+1;
end;

for i:=1 to 5 do
for j:=1 to 5 do 
begin
if b[i,j]>2.5 then nb:=nb+1;
end;

Writeln('NA=',na);
Writeln('NB=',nb);
readln;
end.

Проверил на паскале - все работает. Удачи.

[Student1]

Большое спасибо!