Модернизировать программу

@Aboddone · Регистрация: 30.10.2021

Author24 — интернет-сервис помощи студентам

Как модернизировать программу так, чтобы в массив В записывался пятый и седьмой элемент массива А.

Pascal

Program massive;
var a,b:array[1..20] of word;
k,m,i:byte;
begin
write ('Введите размерность массива k=');
readln(k);
m:=0;
for i:=1 to k do
begin
write ('A[',i,']=');
readln (A[i]);
if A[i] mod 2=0 then
begin
m:=m+1;
B[m]:=A[i];
end;
end;
if m<>0 then
for i:=1 to m do
write (B[i],' ')
esle
write ('В массиве нет четных элементов!');
end.

@Cyborg Drone · 02.08.2022, 11:30

Pascal

var
  a, b: array[1..20] of word;
  k, m, i: byte;
begin
  write ('Введите размерность массива k=');
  readln(k);
  m := 0;
  for i := 1 to k do
    begin
      write('A[',i,']=');
      readln(a[i]);
      if (i = 5) or (i = 7) then
        begin
          inc(m);
          b[m] := a[i]
        end
    end;
  if m > 0 then for i := 1 to m do write (b[i],' ')
  else write('В массиве менее 5 элеменов');
  readln
end.

	02.08.2022, 11:30