А)Напишите процедуру(или через глобальные переменные),которая вычесляет произвед
А)Напишите процедуру(или через глобальные переменные),которая вычесляет произведение отрицательных элементов вектора.
б)Напишите процедуру которая находит и заносит в массив простые числа меньше чем заданного(любого числа)натурального числа.
(РЕШИТЕ НА БАЗЕ Turbo Pascal 7.0)
Гость
Ответ(ы) на вопрос:
Гость //Могу ошибаться, тестов не проводил
//a
Type
procedure proi(n:integer; var p:integer);
i:integer;
begin
p:=1;
for i:=1 to n do
if ar[i]<0 then p:=p*ar[i];
end;
//б
procedure proi(n:integer; var ar:array of integer);
i,p,k:integer;
b:boolean;
begin
p:=1;
k:=0;
b:=true;
while p<n do
begin
p:=p+1;
for i:=2 to p div 2 do
if p mod i=0 then
begin
b:=false;
break;
end;
if b=true then
begin
k:=k+1;
setlength(ar,k+1);
ar[k]:=p;
end;
b:=true;
end;
end;
Не нашли ответ?
Похожие вопросы