Надо из данной программы убрать все ошибки чтоб она заработала( Паскаль ) ПАМАГИТЕ( var a:array[1..100] of integer;
b:array[1..100 of integer;
N i: integer;
begin
randomize
writeln('Сколько элементов в массивах?');
readln(N);
for i := 1 to N do
begin
a[i] := random(5)+1;
b[i] := random(5)+1;
end;
for i := 1 to do
if a[i] := b[i] then writeln('Номер - ',i,' Элемент - ',a[i]);
end

nairchik    1   23.03.2021 15:05    0