Question

Дан фрагмент программы, определяющий количество неотрицательных элементов массива A[1..10]. Восстановите пропущенное условие.     k:=10;    i:=1;    while i<=10 do       begin            if ________ then k:=k – 1;                  i:=i+1       end;   write (k)A[i]>=0A[i]<=0A[i]<0A[i]>0​

Answer 1

Не отрицательные - от нуля до плюс бесконечности.

НО, внимательно смотрим, что делает программа. У нас k изначально равна 10, значит нам надо искать отрицательные члены и вычитать их из общего числа

A[i] < 0

Answer 2

Для определения количества неотрицательных элементов массива A[1..10], условие внутри цикла должно проверять, является ли текущий элемент A[i] неотрицательным. То есть, пропущенное условие должно быть:

pascalCopy code
if A[i] >= 0 then

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

pascalCopy code
k := 10;
i := 1;
while i <= 10 do
begin
  if A[i] >= 0 then
    k := k - 1;
  i := i + 1;
end;
write(k);

Этот фрагмент программы будет подсчитывать количество неотрицательных элементов в массиве A[1..10] и выводить результат.