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.
Скажем поступок,где Карлсон воровал плюшки,высоко безнравственен.Воровать вообще не хорошо,но с точки зрения детской литературы-это выглядит даже более чем забавно.Ведь Малыш своему другу Карлсону,что его заперла злая домоуправительница,и не дает вкусняшки,поэтому,со стороны автора,это выглядит как маленькая хитрость.Карлсон как верный друг просто не мог оставить малыша в такой детской беде и конечно же ему Ведь Карлсон зная что в соседней комнате лежат плюшки,мог сам из тихонько сьесть,но опять проявил свою любовь и заботу к малышу и поделился с ним.Считаю что это выглядит как маленькая месть-хитрость,и учит нас тому,что друзей в жизни надо иметь как можно больше.
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.