Версия для печати темы

Автор: warning777 18.02.2008 21:19

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

Автор: renesko1 18.02.2008 23:07

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

Автор: amega 9.03.2008 16:12

Держи

 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я 15.03.2008 17:25

amega

Если нужны именно простые числа, то слегка сложнее...
http://forum.pascal.net.ru/index.php?showtopic=3916

Автор: andriano 16.03.2008 14:46

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