Информация, соответствующая запросам потребителя? выберите один ответ : а) достоверная информация б) эргономичная информация в) полезная информация г) защищенная информация

Ядумаю то здесь правильный ответ а)

Var   mas: array [1..20] of integer;   k: integer; begin     randimize;     //заполнение массива     for k: =1 to 20 do begin       mas[k]: =random(1000);     end;     for k: =1 to 20 do begin       if k and 1=1 then         mas[k]: =mas[k]*2 else mas[k]: =mas[k]-1;           end;     //вывод массива   for k: =1 to 20 do     writeln(mas[k]); end.

Var a: array[1..10] of integer;   i,j,k: integer; begin for i: =1 to 10 do begin   write('a[',i,'] = ');   readln(a[i]); end; j: =0; k: =0;   for i: =1 to n do   begin   if a[i]> 0 then   begin j: =j+1; if j=3 then k: =i; end;   end; if k> 0   then writeln('третий положительный элемент: a[',k,'] = ',a[k])   else writeln('в массиве нет трех положительных элементов'); readln; end. пример: a[1] = -5a[2] = 8a[3] = -9a[4] = 7a[5] = -3a[6] = -1a[7] = 6a[8] = -3a[9] = 2a[10] = 4третий положительный элемент: a[7] = 6