Нарисовать блок-схему.Задан целочисленный массив размерности N. Есть ли посреди массива простые

Нарисовать блок-схему.

Задан целочисленный массив размерности N. Есть ли посреди массива

простые числа? Если да, то вывести номера этих элементов.

Задать свой вопрос
1 ответ

const

 N=5;  

var

 a:array [1..N] of integer;

 i,k,count:integer;

begin

 for i:=1 to N do

   begin

     a[i]:=random(20);

     write(a[i]);

   end;

 for i:=1 to N do

   begin

     count:=0;

     k:=2;

     if a[i] lt; 2 then count:=1;

     while (k*klt;=a[i]) and (count = 0) do

       begin

         if a[i] mod k = 0 then inc(count);

         inc(k);

       end;

     if count = 0 then write(i);

   end;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт