Консультация № 138788
31.05.2008, 14:40
0.00 руб.
0 1 1
Уважаемые эксперты, помогите написать следующую функцию. Дана квадратная матрица. Найти сумму таких ее элементов, что i - нечетное, а j - простое одновременно. Необходимо задействовать пользовательские функции.
Заранее благодарен.

Обсуждение

Неизвестный
31.05.2008, 15:38
общий
это ответ
Здравствуйте, Верещагин Михаил!
вот программа, вроде все интуитивно понятно

Приложение:
program www;uses crt;constN=10;vara:array [1..N,1..N] of integer;i,j,s,k:integer;function prostoe:boolean;varpr:boolean;beginpr:=true;for k:=2 to j-1 doif j mod k = 0 then pr:=false;prostoe:=pr;end;function summa:integer;beginfor i:=1 to N do if odd(i) then for j:=1 to N do if prostoe then s:=s+a[i,j];summa:=s;end;begin;clrscr;for i:=1 to N dobegin for j:=1 to N do begin a[i,j]:=random(100); write(a[i,j],‘ ‘); end; writeln;end;writeln(summa);readln;end.
Форма ответа