Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        на паскале! помогите!
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: paradise, KMA
  

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)

Всего сообщений: 2 | Присоединился: январь 2014 | Отправлено: 19 янв. 2014 22:45 | IP

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Одна страница

Форум работает на скрипте © Ikonboard.com