Значения двух массивов A 1-200 и b 1-200 задаются с помощью следующего фрагмента программы на паскале for n:=1 to 300 do A (n) : = n+100; for n:=1 to 200 do B (n) : = 2*A (n) - 500. Сколько элементов массива b будут иметь положительные значения?

Ответ-50.

Программа с помощью которой я это вычислил [Pascal].

program abc;

var sum, i, k, n:longint;

a, b:array[1 ... 200]of longint;

begin

for n:=1 to 200 do A[n]: = n+100;

for n:=1 to 200 do begin B[n]: = 2*A[n]-500;

if b[n]>0 then k:=k+1; end;

write (k) ;

end.