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

Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых:
а) А < B
б) A = B;
в) A > B
помогите,пожалуйста

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

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);