одномерный массив на паскале

[Erkesh]

нужно вывести случайный одномерный массив и вычислить суммы простых чисел в массиве

[Serge_Bliznykov]

нужно, делайте. задачка несложная. сюда написали зачем? Хвастаетесь своим заданием?

[Erkesh]

нечего мне хвастаться, пишу, потому что затрудняюсь в решений !!!!

[Serge_Bliznykov]

нечего мне хвастаться, пишу, потому что затрудняюсь в решений !!!!

ясно. бывает.
Ещё раз задам вопрос - сюда Вы написали для чего?!
Просто хотели сообщить всем форумчанам о том, что Вы затрудняетесь в решении.
Это и есть цель вашего сообщения?

[Stilet]

нужно вывести случайный одномерный массив

var n,i:integer;
begin
 for i:=1 to 10 do begin
   n:=random(1000); write(n:7);
 end;
readln;
end.

Проверку на простату чисел сам напиши, у меня туго с математикой.

[NinaSSS]

program fghkjgh; uses crt;
var a:array[1..100] of integer; i,j,s,k,n:integer;
begin clrscr;
randomize;
readln(n);
for i:=1 to n do begin
a[i]:=random(100); end;
for i:=1 to n do begin
write(a[i]:3);
end; writeln;
s:=0;
for i:=1 to n do begin k:=0;
for j:=1 to a[i] do begin
if a[i] mod j=0 then begin ;k:=k+1;end;end;
if k=2 then begin write(a[i]:3) ; s:=s+a[i];end; end;
write('summa prostih',s:5);
end.