Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых: а) А < B б) A = B; в) A > B помогите,пожалуйста
Answers & Comments
rustemgimadutd
Var a,b:array[1..100] of integer; x,y,z,i,n:integer; begin read(n); for i:=1 to n do read(a[i]); for i:=1 to n do read(b[i]); for i:=1 to n do begin if a[i]>b[i] then inc(z) else if a[i]end; write(x,' ',y,' ',z);
Answers & Comments
a,b:array[1..100] of integer;
x,y,z,i,n:integer;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do read(b[i]);
for i:=1 to n do begin
if a[i]>b[i] then inc(z) else
if a[i]end;
write(x,' ',y,' ',z);