var a: array[1..n] of integer; kOdd, e, i: integer;
begin Randomize; kOdd := 0; write('Исходный массив '); for i := 1 to n do begin e := Random(20) + 1; a[i] := e; if (e mod 2) <> 0 then kOdd := kOdd + 1; write(e:3) end; writeln; writeln('Количество нечетных элементов - ', kOdd) end.
Тестовое решение: Исходный массив 9 2 1 18 17 16 11 15 15 13 Количество нечетных элементов - 7
program ex2;
const n = 10;
var a: array[1..n] of integer; kNeg, e, i: integer;
begin Randomize; kNeg := 0; write('Исходный массив '); for i := 1 to n do begin e := Random(21) - 10; a[i] := e; if e < 0 then kNeg := kNeg + 1; write(e:4) end; writeln; writeln('Количество отрицательных элементов - ', kNeg); end.
Тестовое решение: Исходный массив -9 -1 -7 -4 8 -4 1 -1 -7 0 Количество отрицательных элементов - 7
program ex3;
const n = 10;
var a: array[1..n] of integer; e, i: integer;
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(20); write(a[i]:4) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] mod 2 = 0 then a[i] := 1; write(a[i]:4) end; writeln; end.
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(11) + -5; write(a[i]:4) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] = 0 then a[i] := 1; write(a[i]:4) end; writeln; end.
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(10) + 1; write(a[i]:3) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] = 3 then a[i] := 5; write(a[i]:3) end; writeln; end.
program fofgogjoj; const nmax=100; var m:array[1..nmax] of integer; n,i,j,k:byte; a,b,x:integer; begin randomize; repeat Write('Размер массива до ',nmax div 3,' n='); readln(n); until n in [1..nmax div 3]; Writeln('Исходный массив:'); for i:=1 to n do begin m[i]:=random(50); Write(m[i],' '); end; Writeln; Writeln; Write('Введите число для вставки перед a='); Readln(a); i:=1; k:=0; while i<=n do begin if m[i]>a then begin n:=n+1; k:=1; for j:=n downto i+1 do m[j]:=m[j-1]; m[i]:=a; i:=i+2; end else i:=i+1; end; if k=0 then Writeln('Элементов больше ',a,' нет') else begin Writeln('Массив после вставки числа ',a,' перед большими ',a); for i:=1 to n do Write(m[i],' '); Writeln; Writeln; Write('Введите число для вставки после b='); Readln(b); i:=1;k:=0; while i<=n do if m[i]<b then begin n:=n+1; k:=1; for j:=n downto i+2 do m[j]:=m[j-1]; m[i+1]:=b; i:=i+2; end else i:=i+1; if k=0 then Writeln('Элементов меньше ',b,' нет') else begin Writeln('Массив после вставки числа ',b,' после меньших ',b); for i:=1 to n do Write(m[i],' '); end; end; readln end.
