Найдите в массиве все простые числа и скопируйте их в новый массив. С командой array без рандомайза!Паскаль. СРОЧНО!!!!!!
Answers & Comments
estengseant
Var a,b: array[1..10] of Integer; i,n: integer; begin n:=1; for i:=1 to 10 do readln(a[i]); for i:=1 to 10 do begin if a[i]<>0 then begin b[n]:=a[i]; inc(n); end; end; if n=1 then writeln('Элементов нет') else for i:=1 to n-1 do writeln(i,': ',b[i]); end.
Answers & Comments
i,n: integer;
begin
n:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
begin
if a[i]<>0 then
begin
b[n]:=a[i];
inc(n);
end;
end;
if n=1 then writeln('Элементов нет') else
for i:=1 to n-1 do writeln(i,': ',b[i]);
end.