Значения двух массивов a[1..100] и b[1..100] с следующего фрагмента программы: for n: =1 to 100 doa[n] : = n - 10; for n: =1 to 100 dob[n] : = a[n]*n; сколько элементов массива b будут иметь положительные значения? 1) 10 2) 50 3) 90 4) 100
Скорее всего ответ 3)90, так как A[1]=-9- это отприц.число, A[10]=0-это никакое число, и начиная от A[11] до A[100] все числа массива B будут положительными ответ:3)90
Var a:array[1..10] of integer; k,n,i:integer; min:INTEGER; begin randomize; N:=10; k:=0 {кол-во отрицательных элементов}; writeln ('исходный массив'); for i:=1 to N do begin if random(2) =1 then a[i]:=random(100) else begin k:=k+1; a[i]:=-random(100); min:=a[I] end; write(a[i]:5); end; writeln; {поиск минимального положительного} if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные} begin for i:=1 to N do if (a[i]>0) and (a[i]<min) then min:=a[i]; {замена} for i:=1 to N do if (a[i]<0) then a[i]:=min; end; writeln('Новый массив') for i:=1 to N do write(a[i]:5); end.
ответ:3)90