Значения элементов двух массивов А и В с индексами от 1 до 100 задаются с помощью следующего фрагмента программы:
for i:=1 tо 100 do
A[i] := 50 – i;
for i:=1 tо 100 do
B[i] := A[i] + 49;
Сколько отрицательных элементов будет в массиве В?
for i:=1 tо 100 do
A[i] := 50 – i;
for i:=1 tо 100 do
B[i] := A[i] + 49;
Сколько отрицательных элементов будет в массиве В?
More Questions From This User See All
Answers & Comments
Ответ: 1
var
a,b:array[1..100] of integer;
i, z:integer;
begin
for i:=1 to 100 do
A[i] := 50 - i;
z:=0;
for i:=1 to 100 do begin
B[i] := A[i] + 49;
if b[i]<0 then inc(z);
end;
print('Отрицательных=',z)
end.