4 а) const n=10; var a:array[1..n] of integer; i,k:integer; begin writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if ((i mod 2) = 0) then a[i]:=a[i]*2 else a[i]:=a[i]*3; end; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); end. б) const n=10; var a:array[1..n] of integer; i,k:integer; begin writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if ((i mod 2) = 0) then a[i]:=a[i]-a[i]*2; end; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); end. 5 a) const n=10; var a:array[1..n] of integer; i,k:integer; begin k:=0; writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if (i>2) and (a[i]>a[i-1]) then k:=k+1; end; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); writeln; write('Кол-во элементов больших соседа слева ',k); end. 5 б) const n=10; var a:array[1..n] of integer; z,i,k:integer; begin k:=0; z:=0; writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if ((i mod 2) = 0) then k:=k+1; if k=2 then begin k:=0; z:=z+1; end; end; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); writeln; write('Кол-во четных пар: ',z); end. 6 а) const n=10; var a:array[1..n] of integer; s,k,i:integer; sr:real; begin s:=0; k:=0; writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10); write(' ',a[i]); end; writeln; for i:=1 to n do begin if ((a[i] mod 2) = 0) and ((i mod 2) <> 0) then begin s:=s+a[i]; k:=k+1; end; end; sr:=s/k; writeln('Конечный массив: '); for i:=1 to n do write(' ',a[i]); writeln; write('Среднее арифметическое четных элементов с нечетными индексами: ',sr); end.
брейк - А. Быстрое и резкое падение цен. Б. Денежная, торговая несбалансированность, при которой дебет не равен кредиту или имеет место значительное дебетовое или кредитовое сальдо.
видеоклип- (от англ. clip - стричь - обрывать) , интерпретация эстрадной, поп- или рок-песни, как правило, сприменением ""дробного"" монтажа и специальных эффектов. Распространениесвязано с появлением в 80-х гг. 20 в. кабельных музыкальных телеканалов ирынка бытовой видеоаппаратуры и видеокассет. Используется в т. ч. врекламных целях.
дюйм- 1. Единица длины в системе русских мер равная 1/28 аршина (в Российском государстве до 1918 г.) . 2. Единица длины в системе английских мер, равная 1/12 фута (2,54 см) .
жалюзи- Многостворчатые ставни или шторы из узких пластинок, связанных между собой, применяемые для регулирования светового и воздушного потока.
камбала- Промысловая морская рыба плоской формы с глазами на одной стороне головы.
мультипликация- 1. Киносъемка последовательных фаз движения рисованных или объемных фигур, в результате которой при показе на экране у зрителя создается иллюзия их движения. // Объект такой съемки. 2. разг. Фильм, сделанный посредством такой съемки.
пастила- Кондитерское изделие тестообразного вида из протертых, сваренных с сахаром фруктов (обычно сбиваемых с яичным белком) .
универсальный- - 1. Охватывающий всё или многое; всеобъемлющий. 2. Обладающий разными знаниями, навыками; разносторонний. 3. Выполняющий разнообразные функции.
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
end.
б)
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]-a[i]*2;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
end.
5 a)
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
k:=0;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if (i>2) and (a[i]>a[i-1]) then
k:=k+1;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
writeln;
write('Кол-во элементов больших соседа слева ',k);
end.
5 б)
const n=10;
var a:array[1..n] of integer; z,i,k:integer;
begin
k:=0;
z:=0;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
k:=k+1;
if k=2 then
begin
k:=0;
z:=z+1;
end;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
writeln;
write('Кол-во четных пар: ',z);
end.
6 а)
const n=10;
var a:array[1..n] of integer; s,k,i:integer;
sr:real;
begin
s:=0;
k:=0;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((a[i] mod 2) = 0) and ((i mod 2) <> 0) then
begin
s:=s+a[i];
k:=k+1;
end;
end;
sr:=s/k;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
writeln;
write('Среднее арифметическое четных элементов с нечетными индексами: ',sr);
end.
брейк - А. Быстрое и резкое падение цен.
Б. Денежная, торговая несбалансированность, при которой дебет не равен кредиту или имеет место значительное дебетовое или кредитовое сальдо.
видеоклип- (от англ. clip - стричь - обрывать) , интерпретация эстрадной, поп- или рок-песни, как правило, сприменением ""дробного"" монтажа и специальных эффектов. Распространениесвязано с появлением в 80-х гг. 20 в. кабельных музыкальных телеканалов ирынка бытовой видеоаппаратуры и видеокассет. Используется в т. ч. врекламных целях.
дюйм- 1. Единица длины в системе русских мер равная 1/28 аршина (в Российском государстве до 1918 г.) .
2. Единица длины в системе английских мер, равная 1/12 фута (2,54 см) .
жалюзи- Многостворчатые ставни или шторы из узких пластинок, связанных между собой, применяемые для регулирования светового и воздушного потока.
камбала- Промысловая морская рыба плоской формы с глазами на одной стороне головы.
мультипликация- 1. Киносъемка последовательных фаз движения рисованных или объемных фигур, в результате которой при показе на экране у зрителя создается иллюзия их движения. // Объект такой съемки.
2. разг. Фильм, сделанный посредством такой съемки.
пастила- Кондитерское изделие тестообразного вида из протертых, сваренных с сахаром фруктов (обычно сбиваемых с яичным белком) .
универсальный- - 1. Охватывающий всё или многое; всеобъемлющий.
2. Обладающий разными знаниями, навыками; разносторонний.
3. Выполняющий разнообразные функции.