Перечитай вопрос, исправь, я переведу
Задача 1 Программа проверена для первых четырех элементов (=16)
Var
a,b:integer;
c:string;
begin
readln(a,b);
readln(c);
if c='+' then
writeln(a+b);
if c='*' then
writeln(a*b);
if c='-' then
writeln(a-b);
<span>end.
так проще</span>
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);
3х=120
х=40
за 40 секунд 1 Мбайт
4 за 160 секунд
или 2 мин 40 секунд