Определите, что будет напечатано в результате работы следующего фрагмента программы: {

он просто "ей становится", то есть если p=4, а потом 5, то массив будет сначала равен 4, а потом заменит 4 на 5. А нужно, чтобы в нем было и 4, и 5. Как это сделать?

Вот малый пример программы: переменная P и цикл c массивом.

uses crt;

var
p,i:integer;
m:array [1..10] of integer;

begin
p:=0;
for i:=1 to 5 do
begin
p:=p+1;
m[i]:=p;
end;
end.

var n, s: integer;
begin
n := 0;
s := 512;
while s >=0 do begin
s := s -20;
n := n + 1
end;
write(n)
end

в результате работы следующего фрагмента программы:

var k,s:integer;

begin

s:=0;

k:=1;

while k<11 do begin

s:=s+k;

k:=K+1;

end;

write(s);

end.

1.1 Запишите этот же фрагмент с помощью оператора Repeat...until

2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:

for n:=1 to 100 do

A[n]:=n-10;

for n:=1 to 100 do

B[n]:=A[n]*n;

Сколько элементов массива B будут иметь положительные значения?

а)10 б)50 в)90 г)100

в результате работы следующего фрагмента программы:

var k,s:integer;

begin

s:=0;

k:=1;

while k<11 do begin

s:=s+k;

k:=K+1;

end;

write(s);

end.

1.1 Запишите этот же фрагмент с помощью оператора Repeat...until

2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:

for n:=1 to 100 do

A[n]:=n-10;

for n:=1 to 100 do

B[n]:=A[n]*n;

Сколько элементов массива B будут иметь положительные значения?

а)10 б)50 в)90 г)100

Var m, n : integer;

begin

m := 50;

for n := 1 to 7 do

m := m – 7;

write(m);

end.