4) мышь , клавиатура, монитор
5) мышь , планшет, монитор, клавиатура
6)русские буквы, арабские, римские цифры, + - = ,
Например,
было 1 2 3 4 5 6 7 8 9 10, стерли первые 5 цифр, то первая начальная будет 6.
Тут же также:
600-506+1 = 95.
95 - число, которое будет первым, тогда в свою очередь 9 - первая цифра этого числа.
Сначала (до i=5) удваиваются элементы массива 1, 2, 3, 4, 5. Получается соответственно 2, 4, 6, 8, 10. Затем, с i=6 удваиваются полученные значения (в обратном порядке). Получается 20, 16, 12, 8, 4.
Можно это всё расписать подробно, по шагам:
1, 2, 3, 4, 5, 6, 7, 8, 9, 10
1 шаг цикла:
A [10] := 2*A[1]
1, 2, 3, 4, 5, 6, 7, 8, 9, 2
2 шаг:
A [9] := 2*A[2]
1, 2, 3, 4, 5, 6, 7, 8, 4, 2
3 шаг:
A [8] := 2*A[3]
1, 2, 3, 4, 5, 6, 7, 6, 4, 2
4 шаг:
A [7] := 2*A[4]
1, 2, 3, 4, 5, 6, 8, 6, 4, 2
5 шаг:
A [6] := 2*A[5]
1, 2, 3, 4, 5, 10, 8, 6, 4, 2
6 шаг:
A [5] := 2*A[6]
1, 2, 3, 4, 20, 10, 8, 6, 4, 2
7 шаг:
A [4] := 2*A[7]
1, 2, 3, 16, 20, 10, 8, 6, 4, 2
8 шаг:
A [3] := 2*A[8]
1, 2, 12, 16, 20, 10, 8, 6, 4, 2
9 шаг:
A [2] := 2*A[9]
1, 8, 12, 16, 20, 10, 8, 6, 4, 2
10 шаг:
A [1] := 2*A[10]
4, 8, 12, 16, 20, 10, 8, 6, 4, 2
Ответ: 8
const nx = 30; mx = 30; var i,j,m,n,k,qi,qj:integer; D:array[1..nx,1..mx] of real; min:real; begin min:= 30.0; writeln('Введите n и m'); Readln(n,m); for i:= 1 to n do begin for j:= 1 to m do begin D[i,j] := random()*20 -10; write(D[i,j]:6:2); if D[i,j]< 0 then k:= k + 1; if min > D[i,j] then begin min := D[i,j];qi:=i;qj:=j; end; end; writeln; end; Writeln('минимальный элемент матрицы ',min); Writeln('номер строки ',qi); Writeln('номер столбца',qj); Writeln('количество отрицательных элементов матрицы',k); end.