1) Может 2) б) 3) а) 6, б) 12, с) 6, d) нет 4) В массив на место A[5] вписывают 0, а все элементы больше 5-го сдвигают вправо. 5) а) 6) с) 7) а) 8) for i:=1 to 15 do if i mod 5 = 0 then write (A[i], ' '); 9) k:=0; for i:=1 to 8 do if A[i]<=10 then k:=k+1; write (k); 10) var A: array [1..6] of integer var i, S: integer BEGIN for i:=1 to 6 do read (A[i]); S:=A[1]+A[2]; for i:=2 to 5 do if (A[i]+A[i+1] mod 2 = 1) and (A[i]+A[i+1] < S) then S:=A[i]+A[i+1]; write (S); END. 11) Программа ищет максимальный элемент массива и выдат число 7. 12) Каждый элемент массива превращается в сумму двух соседних элемента. Выдаст массив -1 5 7 3 1
Answers & Comments
Verified answer
1) Может2) б)
3) а) 6, б) 12, с) 6, d) нет
4) В массив на место A[5] вписывают 0, а все элементы больше 5-го сдвигают вправо.
5) а)
6) с)
7) а)
8) for i:=1 to 15 do if i mod 5 = 0 then write (A[i], ' ');
9) k:=0;
for i:=1 to 8 do if A[i]<=10 then k:=k+1;
write (k);
10) var A: array [1..6] of integer
var i, S: integer
BEGIN
for i:=1 to 6 do read (A[i]);
S:=A[1]+A[2];
for i:=2 to 5 do if (A[i]+A[i+1] mod 2 = 1) and (A[i]+A[i+1] < S) then S:=A[i]+A[i+1];
write (S);
END.
11) Программа ищет максимальный элемент массива и выдат число 7.
12) Каждый элемент массива превращается в сумму двух соседних элемента.
Выдаст массив -1 5 7 3 1