Перевести код с паскаля на С++

@FUC · Регистрация: 28.10.2020

Pascal

const n=5;
var  x,y:array[1..n] of integer;
i,j,a,s,k:integer;
begin
writeln('vvedite a=');
readln(a);
writeln('vvedite massiv x=');
for i:=1 to n do
read(x[i]);
writeln ('vvedite massiv y=');
for j:=1 to n do
read(y[j]);
k:=0;
s:=0;
for i:=1 to n do 
for j:= 1 to n do
if x[i]*y[j]<=a then begin
k:=k+1;
s:=s+(x[i]*y[j]);
end;
writeln ('kolicestvo=',k,' summa=',s);
readln;
end.

@kolhoznikzzz · 01.11.2020, 10:16

лучше напиши, что он делает, и я помогу перевести

@FUC · 01.11.2020, 11:46 **[ТС]**

Разработать программу вычисления требуемой величины на основе заданного одномерного массива.
При заданной величине A и заданных элементах X1, X2, …, Xn и Y1, Y2, …, Yn определить число произведений вида Xi×Yi, удовлетворяющих условию Xi×Yi <= A, и сумму таких произведений.

Добавлено через 1 час 23 минуты
kolhoznikzzz, Разработать программу вычисления требуемой величины на основе заданного одномерного массива.
При заданной величине A и заданных элементах X1, X2, …, Xn и Y1, Y2, …, Yn определить число произведений вида Xi×Yi, удовлетворяющих условию Xi×Yi <= A, и сумму таких произведений.

@kolhoznikzzz 6 / 4 / 2 Регистрация: 17.03.2020 Сообщений: 31
	01.11.2020, 10:16	2
	лучше напиши, что он делает, и я помогу перевести 0

@FUC 0 / 0 / 0 Регистрация: 28.10.2020 Сообщений: 21
	01.11.2020, 11:46 [ТС]	3
	Разработать программу вычисления требуемой величины на основе заданного одномерного массива. При заданной величине A и заданных элементах X1, X2, …, Xn и Y1, Y2, …, Yn определить число произведений вида Xi×Yi, удовлетворяющих условию Xi×Yi <= A, и сумму таких произведений. Добавлено через 1 час 23 минуты kolhoznikzzz, Разработать программу вычисления требуемой величины на основе заданного одномерного массива. При заданной величине A и заданных элементах X1, X2, …, Xn и Y1, Y2, …, Yn определить число произведений вида Xi×Yi, удовлетворяющих условию Xi×Yi <= A, и сумму таких произведений. 0

Опции темы