Предмет: Информатика,
автор: mona321
Даны два массива чисел X = (x1,x2,...,xn) и У = (у1,у2,...,уn). Найти массив Z, у которого каждый элемент zi равен произведению хi уi .
помогите,очень надо!!!
надо ещё блок схему
Ответы
Автор ответа:
0
Var
x,y,z:array [1..10] of integer;
i,n:integer;
begin
writeln('введите n');
readln(n);
writeln('введите массив x');
for i:=1 to n do
readln(x[i]);
writeln('введите массив y');
for i:=1 to n do
readln(y[i]);
for i:=1 to n do
z[i]:=x[i]*y[i];
writeln('Массив x: ');
for i:=1 to n do
write(x[i],' ');
writeln;
writeln('Массив y: ');
for i:=1 to n do
write(y[i],' ');
writeln;
writeln('Массив z: ');
for i:=1 to n do
write(z[i],' ');
writeln;
end.
x,y,z:array [1..10] of integer;
i,n:integer;
begin
writeln('введите n');
readln(n);
writeln('введите массив x');
for i:=1 to n do
readln(x[i]);
writeln('введите массив y');
for i:=1 to n do
readln(y[i]);
for i:=1 to n do
z[i]:=x[i]*y[i];
writeln('Массив x: ');
for i:=1 to n do
write(x[i],' ');
writeln;
writeln('Массив y: ');
for i:=1 to n do
write(y[i],' ');
writeln;
writeln('Массив z: ');
for i:=1 to n do
write(z[i],' ');
writeln;
end.
Похожие вопросы
Предмет: Английский язык,
автор: danishpan090290
Предмет: Математика,
автор: gordienkonadezda11
Предмет: География,
автор: marcenkomarina628
Предмет: Математика,
автор: оруджова