Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.