Помогите решить задачу, Нужно составить массив из 10 простых чисел, введенных с клавиатуры Опции

[warning777]

Нужно составить массив из 10 простых чисел, введенных с клавиатуры

[renesko1]

смотрел по поиску или faq ?

Сообщение отредактировано: renesko1 - 18.02.2008 19:07

[amega]

Держи

 var a: array[1..10] of integer;
       i:integer;
 begin
  for i:=1  to 10 do 
             begin 
                     write(a[',i,']=');
                      reaadln(a[i]);{вводиш по очреди свои числи}
             end;
{вивод на екран}
   for i:=1  to 10 do 
          write(a[',i,']=',a[i]);
readln;
end.
 

и ничего сложного

[Ozzя]

amega

простых

Если нужны именно простые числа, то слегка сложнее...
Замечательные числа

[andriano]

amega

Если нужны именно простые числа, то слегка сложнее...

Отчего же?
Прстые числа или нет - проблема того, кто будет вводить, т.к. по условию простые числа должен вводить именно пользователь.