Одномерные массивы

Обращение к элементу массива осуществляется по его:

Числовой массив А заполнен последовательно числами: 29, 77, 88, 3, 99, 0 Укажите значение элемента А[3].

Выберите способ объявления в программе массива А, состоящего из 100 целых чисел.

Как можно заполнить массив?

Массив M заполняется случайными целыми числами от 12 до 56. Выберите правильный вариант основной команды цикла.

Выберите правильные варианты вывода элементов массива на печать в строку.

Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально

   A[3] := 5;

   A[4] := 6;

   A[3] = A[4];

   A[4] := A[3]

?

Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально

   A[3] := 20;

   A[4] := 30;

   B := A[3];

   A[3] := A[4];

   A[4] := B

?

В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно A[10]?

For i := 1 To 5 Do

   Begin

      A[2*i - 1] := i;

      A[2*i] := i*i

   End;

Оператор:

for i:=1 to 20 do
if a[i]<>0 then writeln (a[i]);

выводит на экран:

Что производит следующий фрагмент программы?

readln(n);

for i:=1 to n do begin

a[i]:=random(45)-22;

end;

write(n);

Какое количество данных может находиться в данном массиве

 var ch: array[14..73] of integer;

?

Опреде­лите, что будет напечатано в результате выполнения программ:

Var k, m: integer;

Dat: array[1..11] of integer;

Begin

Dat[1]:= 20; Dat[2]:= 25;

Dat[3]:= 19; Dat[4]:= 25;

Dat[5]:= 26; Dat[6]:= 22;

Dat[7]:= 24; Dat[8]:= 28;

Dat[9]:= 26; Dat[10]:= 21;

Dat[11]:= 27;

m := 0;

for k := 3 to 11 do

if Dat[k] >= 22 then  m := m+1;

writeln(m);

End.

Опреде­лите, что будет напечатано в результате выполнения программ:

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1]:= 2; Dat[2]:= 5;

Dat[3]:= 8; Dat[4]:= 5;

Dat[5]:= 4; Dat[6]:= 2;

Dat[7]:= 0; Dat[8]:= 6;

Dat[9]:= 4; Dat[10]:=19;

m := 0;

for k := 5 to 9 do

if Dat[k] > m then  m := Dat[k];

writeln(m);

End.

Опреде­лите, что будет напечатано в результате выполнения программ:

var k, m, day: integer;

Dat: array[1..10] of integer;

begin

Dat[1]:= 7; Dat[2]:= 2;

Dat[3]:= 3; Dat[4]:= 3;

Dat[5]:= 4; Dat[6]:= 4;

Dat[7]:= 5; Dat[8]:= 5;

Dat[9]:= 7; Dat[10]:= 6;

day:= 1; m:= Dat[1];

for k:= 2 to 10 do begin

if Dat[k] >= m then begin

m := Dat [k];

day:= k

end

end;

write(day);

end.

Опреде­лите, что будет напечатано в результате выполнения программ:

var k, m, day: integer;

Dat: array[1..10] of integer;

begin

Dat[1]:= 7; Dat[2]:= 1;

Dat[3]:= 3; Dat[4]:= 3;

Dat[5]:= 2; Dat[6]:= 2;

Dat[7]:= 5; Dat[8]:= 5;

Dat[9]:= 7; Dat[10]:= 1;

day:= 1; m:= Dat[1];

for k:= 2 to 10 do begin

if Dat[k] < m then begin

m := Dat [k];

day:= k

end

end;

write(day);

end.

Опреде­лите, что будет напечатано в результате выполнения программ:

var k, m: integer;

Dat: array[1..10]of integer;

begin

Dat[1]:=45; Dat[2]:=55;

Dat[3]:=40; Dat[4]:=15;

Dat[5]:=20; Dat[6]:=80;

Dat[7]:=35; Dat[8]:=70;

Dat[9]:=10; Dat[10]:= 45;

m:=Dat[1];

for k:= 4 to 10 do begin

if Dat[k] <= Dat[1] then

m:= m + Dat [k];

end;

write(m);

end.

Опреде­лите, что будет напечатано в результате выполнения программ:

var k, m: integer;

Dat: array[1..10]of integer;

begin

Dat[1]:=45; Dat[2]:=55;

Dat[3]:=40; Dat[4]:=15;

Dat[5]:=20; Dat[6]:=80;

Dat[7]:=35; Dat[8]:=70;

Dat[9]:=10; Dat[10]:=45;

m:= Dat[1];

for k:= 4 to 10 do begin

if Dat[k] > Dat[1]   then  m:= m + Dat[k]

end;

write(m);

end.

Какой числовой промежуток задан для значений элементов массива оператором

A[i]:=random(34)+27;

Массив содержит такие элементы a={4, 3, 8, 2, 5, 7, 3, 6, 9, 11, 1}

Чему будет равно значение переменной s после выполнения этого фрагмента

программы:

s:=0;

For i:=1 to 11 do begin

If (a[i]> 3) and (a[i] <8) then s:=s+a[i];

End;

Writeln(‘s=’,s);