1. заполнить массив из 10 элементов случайными числами в интервале -10..10 и выполнить циклический сдвиг влево без первого элемента 2. заполнить массив из 10 элементов случайными числами в интервале 0..4 и вывести номера всех элементов равных x
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.
1.
begin
var a:=ArrRandom(10,-10,10); a.Println;
a:=a[1:]; a.Println;
end.
Пример:
7 4 0 -4 0 8 5 -6 -9 -8
4 0 -4 0 8 5 -6 -9 -8
2.
begin
var a:=ArrRandom(10,0,4); a.Println;
var x:=ReadInteger('x =');
a.IndexesOf(z->z=x).Select(z->z+1).Println;
end.
Пример:
2 1 3 0 4 2 3 2 3 0
x = 3
3 7 9