Значения двух массивов A 1-200 и b 1-200 задаются с помощью следующего фрагмента...

Question

Значения двух массивов 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 будут иметь положительные значения?

Comments

Опечаток нет?

Answer 1

Ответ-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.