Question

ПОМОГИТЕ СРОЧНО решить вот это
Имеется массив А(0,2,5,10,5,-1,10)
Определите значение переменной S после выполнения фрагмента программы
S:=1 TO 7
IF A[i]:= i then S = S+ 1;

Answer 1

Ответ:

2

Объяснение:

var

 a:array[1..7] of integer =(0,2,5,10,5,-1,10);

 s,i:integer;

begin

 for i:=1 to 7 do

   if a[i]= i then s := s+1;

 print(s);

end.