MuSTAnG
_-=UnDeGRoUnD=-_, Лёгкие понятие растяжимое)) Скинь самую сложную задачу)
05 Май 2011, 0:42_-=UnDeGRoUnD=-_
Потом ещё часть, да и ещё если играет роль Turbo pascal, или BP.
05 Май 2011, 17:03IIyX
Помогите плз с задачей - Составить программу вывода на экран индексов элементов одномерного массива B(N),значеня которых суть прострые числа
Вот листинг ( вроде сделал а задача не идет) :
Program Final;
Uses crt;
Var
B: array [1..100] of integer;
i,n: integer;
Begin
ClrScr;
Writeln ('Введите количество элементов массива B');
Readln (n);
For i:=1 to n do
begin
Writeln ('Введите элемент номер ',i);
Readln (B[i]);
end;
Дмитрий
IIyX, действительно, очень странно, что не работает. 
function Prost(a:longint):boolean;
var j:longint;
begin
if a<2 then
Prost:=false
else
begin
Prost:=true;
for j:=2 to round(sqrt(a)) do
if a mod j=0 then
Prost:=false
end
end;
Const n=100;
Var b:array[1..n] of integer;
i:byte;
Begin
Randomize;
WriteLn('Массив:');
for i:=1 to n do
begin
b[i]:=random(100);
Write(b[i],' ')
end;
WriteLn;
WriteLn('Простые числа под номерами:');
for i:=1 to n do
if Prost(b[i])then
Write(i,' ')
end.
IIyX
Дмитрий,cпс что помогли - уже много раз выручаете, а с задачей я протупил серьезно))
13 Май 2011, 12:49