Const n=10; m=5; var i,j,k:integer; A:array[1..n] of integer; B,C:array[1..m] of integer; begin writeln('Введите элкменты массива'); for i:=1 to n do readln(a[i]); j:=0; k:=0; for i:=1 to n do if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end else begin k:=k+1; C[k]:=A[i] end; writeln('Массив А'); for i:=1 to n do write(A[i],' '); writeln; writeln('Массив B'); for i:=1 to j do write(B[i],' '); writeln; writeln('Массив C'); for i:=1 to k do write(C[i],' '); writeln end.
var a: array[1..MAX_SIZE] of integer; i, size: integer;
procedure delete_odd_elements(); var i, j: integer; begin i := 1; repeat if odd(a[i]) then begin dec(size); for j := i to size do a[j] := a[j + 1] end else inc(i); until i > size; end;
begin writeln('Исходный массив: '); size := MAX_SIZE; for i := 1 to size do begin a[i] := random(100); write(a[i] : 3); end; delete_odd_elements; writeln; writeln('Полученный массив: '); for i := 1 to size do write(a[i] : 3); end.
Объяснение:
Вот я сфотографировал таблицу перевода.
Берешь нижнюю букву и меняешь ее на верхнюю.
Результат на снимке тоже есть, но я на всякий случай напишу текстом:
А) вересмь
Б) доара погода
В) навчальник рiк розпочався
Я москаль и не знаю, как это переводится.