uryyry
Новичок
|
    
Дана матрица А(n,n), n 20 целых чисел. Разработайте программу, которая подсчитывает количество простых чисел среди элементов матрицы, находящихся выше побочной диагонали.как сделать чтобы был не смысловой индефикатор????вот прога_____________
Program mas;uses crt;vara:array[1..100,1..100] of integer;i,j,k,n:integer;function f(a:integer):boolean;vari:integer;c:boolean;beginc:=a>=1;for i:=2 to a div 2 doif a mod i = 0 then c:=false;f:=c;end;procedure vvod; begin randomize; write('Ââåñòè ðàçìåð êâàäðàòíîé ìàòðèöû N = '); readln(n); writeln('Èñõîäíàÿ ìàòðèöà'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(21); write(a[i,j]:4); end; writeln; end;end;procedure poisk; begin k:=0; writeln(' íàéäåííûå ïðîñòûå ÷èñëà(ïîñòðî÷íî) âûøå ïîáî÷íîé äèàãîíàëè'); for i:=1 to n-1 do begin write('Ñòðîêà ',i,' '); for j:=1 to n-i do if f(a[i,j]) then begin k:=k+1; write(a[i,j]:4); end; writeln; end; if k=0 then writeln('ïðîñòûõ ÷èñåë íåò');
writeln('kîëè÷åñòâî ïðîñòûõ ÷èñåë = ',k);
end;
BEGIN
vvod;
poisk;
writeln('Êîíåö ïðîãðàììû ');
readkey;
end.
(Сообщение отредактировал uryyry 20 янв. 2014 20:46)
|
Форум
на паскале! помогите!
