Массивы. Алгоритмы обработки массивов

Отметьте все правильные объявления массива в языке Паскаль.

Требуется заполнить массив именно так: X = [1 2 4 8 16 32] Какой оператор надо поместить в тело цикла вместо многоточия? X[1] := 1; for k:=2 to 6 do begin ... end;

Требуется заполнить массив именно так: X = [12 9 6 3 0 -3] Какой оператор надо поместить в тело цикла вместо многоточия? for k:=1 to 6 do begin ... end;

Требуется заполнить массив именно так: X = [3 4 7 8 11 12] Какой оператор надо поместить в тело цикла вместо многоточия? for k:=1 to 6 do begin ... end;

Сколько байт в памяти занимает массив A, если на целое число отводится 4 байта? var A: array[-3..2] of integer;

Требуется заполнить массив именно так: X = [1 3 5 7 9 11] Какой оператор надо поместить в тело цикла вместо многоточия? for k:=1 to 6 do begin ... end;

Отметьте все правильные утверждения о массивах в языке Паскаль.

Задан массив X[1..N]. Что нужно поставить вместо многоточия, чтобы в результате элементы в массиве X были переставлены в обратном порядке? for k:=1 to ... do begin c:=X[k]; X[k]:=X[N+1-k]; X[N+1-k]:=c end;

Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы найти сумму всех элементов массива в переменной S? S := 0; for k := 1 to N do begin ... end;

Задан массив X[1..N]. Какой оператор нужно поставить вместо многоточия, чтобы в результате элементы в массиве X были сдвинуты на один вправо (циклически)? c:=X[N]; for k:=N downto 2 do begin ... end; X[1]:=c;

Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти сумму положительных элементов массива в переменной S? S := 0; for k := 1 to N do begin if . . . then S := S + X[k]; end;

Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы в результате в переменную i был записан номер элемента, равного R? i:=1 while (i<=N) and ( ... ) do i:=i+1;

Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы в результате в переменную nR был записан номер элемента, равного R? nR:= 0; for k:=1 to N do if X[k]=R then begin ... break end;

Требуется поменять местами значения элементов массива X[a] и X[b]. Какой оператор нужно добавить вместо многоточия? p := X[a]; ... X[b] := p;

Требуется выделить все отрицательные элементы массива A[1..N] в начало массива B[1..N]. Какой оператор надо вставить в программу вместо многоточия? c:=1; for k:=1 to N do if A[k]<0 then begin ... c:=c+1 end;

Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти минимальный элемент массива в переменной M? M:=X[1]; for k:=2 to N do if ... then M := X[k];

Какой оператор надо вставить вместо многоточия, чтобы вывести на экран все элементы массива A[1..N] с четными номерами? k := 2; while k <= N do begin writeln ( A[k] ); ... end;

Что надо написать вместо многоточия, чтобы вывести элементы массива X[1..N] в обратном порядке? for k:=1 to N do writeln ( ... );

Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти количество четных элементов массива в переменной S? S := 0; for j:=1 to N do if ... then S := S + 1;

Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы найти номер максимального элемента массива в переменной M? M:=1; for k:=2 to N do if X[k]>X[M] then ...