Question

Нужна помощь в написании программы( можно писать на языке паскаль или delphi). Задача: При заданной величине А и заданных элементах X1, X2, …, Xn и Y1, Y2, …, Yn определить число произведений вида XiYi, удовлетворяющих условию XiYi ≤ А, и сумму таких произведений.

Answer 1

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.