МАССИВЫ! Чему будут равны элементы массивы А после выполнения цикла, если сначала массива был заполнен так:
1 2 3 4 5
А 1 2 3 4 5
а) for i:=2 to 5 do
A[i] := A[i - 1] + 1;

Question

Информатика: МАССИВЫ! Чему будут равны элементы массивы А после выполнения цикла, если сначала массива был заполнен так: 1 2 3 4 5 А 1 2 3 4 5 а) for i:=2 to 5 do A[i] := A[i - 1] + 1;

Nikalime156 · Accepted Answer

Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2). Сделать это можно так: while not eof(fr) and (kol=0) do begin read(fr, Marshrut); if (Marshrut.NK.N 11 )    then write(fr2,Marshrut)    else begin inc(kol); y:=Marshrut; end; end; if not eof(fr) then   begin   read(fr, Marshrut);   write(fr2,Marshrut);   end; if (kol=1) then  write(fr2,y); Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый...

МАССИВЫ! Чему будут равны элементы массивы А после выполнения цикла, если сначала массива был заполнен так: 1 2 3 4 5 А 1 2 3 4 5 а) for i:=2 to 5 do A[i] := A[i - 1] + 1;

MOGZ ответил

МАССИВЫ! Чему будут равны элементы массивы А после выполнения цикла, если сначала массива был заполнен так:
1 2 3 4 5
А 1 2 3 4 5
а) for i:=2 to 5 do
A[i] := A[i - 1] + 1;