Паскаль: 42 - массивы 1. отметьте все правильные объявления массива в языке паскаль. var a[1..20] of integer; var a: array of integer; var a: array [-8..10] of integer; var a: array [-8..10]; var a[1..10]; 2. отметьте все правильные утверждения о массивах в языке паскаль. элементы массива могут быть разных типов все элементы массива должны быть одного типа элементы в памяти расположены рядом элементы могут быть расположены в памяти по одному элементы всегда нумеруются с единицы 3. сколько байт в памяти занимает массив a, если на целое число отводится 4 байта? var a: array[-3..2] of integer; ответ: 4. требуется заполнить массив именно так: x = [1 3 5 7 9 11] какой оператор надо поместить в тело цикла вместо многоточия? for k: =1 to 6 do begin end; x[k] : = k x[k] : = 2*k x[k] : = 2*k - 1 x[k] : = 2*k + 1 x[k] : = 2*(k - 1) 5. требуется заполнить массив именно так: x = [12 9 6 3 0 -3] какой оператор надо поместить в тело цикла вместо многоточия? for k: =1 to 6 do begin end; x[k] : = k x[k] : = 14 - 2*k x[k] : = 3*k - 15 x[k] : = 3*(k - 1) + 6 x[k] : = 15 - 3*k 6. требуется заполнить массив именно так: x = [3 4 7 8 11 12] какой оператор надо поместить в тело цикла вместо многоточия? for k: =1 to 6 do begin end; x[k] : = 3*k - k mod 2 x[k] : = 2*k + k mod 2 x[k] : = 2*k - k mod 2 x[k] : = 2*k + k div 2 x[k] : = 2*(k - 1) 7. требуется заполнить массив именно так: x = [1 2 4 8 16 32] какой оператор надо поместить в тело цикла вместо многоточия? x[1] : = 1; for k: =2 to 6 do begin end; x[k] : = k x[k] : = 2*k x[k] : = x[k-1] + 1 x[k] : = 2*x[k-1] x[k] : = 2*(x[k-1] - 1) 8. что надо написать вместо многоточия, чтобы вывести элементы массива x[1..n] в обратном порядке? в ответе не используйте пробелы. for k: =1 to n do writeln ( ); ответ: 9. какой оператор надо вставить вместо многоточия, чтобы вывести на экран все элементы массива a[1..n] с четными номерами? в ответе не используйте пробелы. k : = 2; while k < = n do begin writeln ( a[k] ); end; ответ: 10. задан массив x[1..n]. какой оператор надо поставить вместо многоточия, чтобы найти сумму всех элементов массива в переменной s? вводите ответ без пробелов. s : = 0; for k : = 1 to n do begin end; ответ: 11. задан массив x[1..n]. какое условие надо поставить вместо многоточия, чтобы найти сумму положительных элементов массива в переменной s? вводите ответ без пробелов. s : = 0; for k : = 1 to n do begin if . . then s : = s + x[k]; end; ответ: 12. задан массив x[1..n]. какое условие надо поставить вместо многоточия, чтобы найти количество четных элементов массива в переменной s? s : = 0; for j: =1 to n do if then s : = s + 1; s mod 2 = 1 s mod 2 = 0 x[j] mod 2 = 1 x[j] mod 2 = 0 x[j] div 2 = 0
2) 2 4
3) 24
4)3
5)5