Решите пожалуйста
Контрольная работа «Одномерные массивы»
1 вариант.
1. Вывести на экран значения всех элементов массива MAS с четными индексами
2. Вычислить сумму элементов массива MAS с нечетными значениями.
3. В элемент массива, находящийся ровно в центре массива, занести значение суммы двух соседних элементов.
4. Значения массива сдвинуть циклически вправо на одну позицию так, чтобы последний элемент стал первым.
5. Массив (размерности n) «сожмите», выбросив из него каждый второй элемент. «Освободившиеся» места в правой части массива заполните нулями. Дополнительный массив не использовать.
Контрольная работа «Одномерные массивы»
1 вариант.
1. Вывести на экран значения всех элементов массива MAS с четными индексами
2. Вычислить сумму элементов массива MAS с нечетными значениями.
3. В элемент массива, находящийся ровно в центре массива, занести значение суммы двух соседних элементов.
4. Значения массива сдвинуть циклически вправо на одну позицию так, чтобы последний элемент стал первым.
5. Массив (размерности n) «сожмите», выбросив из него каждый второй элемент. «Освободившиеся» места в правой части массива заполните нулями. Дополнительный массив не использовать.
Answers & Comments
Номер 1
Program n_1;
var MAS: array [1..10] of integer; i: integer;
begin
for i:=1 to 10 do read(MAS[i]);
for i:=1 to 10 do if i mod 2 = 0 then write(MAS[i], ' ');
end.
Номер 2
Program n_1;
var MAS: array [1..10] of integer; i, s: integer;
begin
s:=0;
for i:=1 to 10 do read(MAS[i]);
for i:=1 to 10 do if MAS[i] mod 2 = 1 then s:=s+MAS[i];
writeln(s);
end.
Номер 3
Program n_1;
var MAS: array [1..5] of integer; i, s: integer;
begin
for i:=1 to 5 do read(MAS[i]);
s:=trunc(5/2)+1;
MAS[s]:=MAS[s-1]+MAS[s+1];
writeln(MAS[s]);
end.
Номер 4
Program n_1;
var MAS: array [1..10] of integer; i, n: integer;
begin
for i:=1 to 10 do read(MAS[i]);
n:=MAS[10];
for i:=9 downto 1 do begin
MAS[i+1]:=MAS[i];
end;
MAS[1]:=n;
for i:=1 to 10 do write(MAS[i], ' ');
end.
Номер 5
Program n_1;
var MAS: array [1..10] of integer; i: integer;
begin
for i:=1 to 10 do begin
read(MAS[i]);
if i mod 2 = 0 then MAS[i]:=0;
end;
for i:=1 to 10 do write(MAS[i], ' ');
end.