Записать положительные элементы массива X в массив Y

@rap1st · Регистрация: 22.04.2019

Author24 — интернет-сервис помощи студентам

Добрый день!

Помогите, пожалуйста, с заданием.

Необходимо: Записать положительные элементы массива X в массив Y. Вычислить сумму элементов массива X и произведение элементов массива Y.

@WildDen · 22.04.2019, 14:03

Pascal

Uses Crt;
const n=10;
var
x,y: array [1..n] of integer;
s,k,p,i:integer;
begin
writeln('mass x:');
s:=0; k:=0; p:=1;
for i:=1 to n do begin
x[i]:=random(-10,10);
write(x[i]:4);
if x[i]>=0 then begin
y[i]:=x[i];
k:=k+1;
end; end;
for i:=1 to n do begin
s:=s+x[i]; end;
writeln;
writeln('mass y:');
for i:=1 to k do begin
write(y[i]:4);
p:=p*y[i]; 
end;
writeln;
writeln('summ mass x=',s);
if k<>0 then begin
writeln('proisve mass y=',p);
end else writeln('net polositelnih el');
end.

@rap1st 0 / 0 / 0 Регистрация: 22.04.2019 Сообщений: 1
		1
	Записать положительные элементы массива X в массив Y 22.04.2019, 11:39. Показов 1413. Ответов 1 Метки нет (Все метки) Добрый день! Помогите, пожалуйста, с заданием. Необходимо: Записать положительные элементы массива X в массив Y. Вычислить сумму элементов массива X и произведение элементов массива Y. 0

	22.04.2019, 14:03