• Дан одномерный массив B из N элементов, значения которых находятся в диапозоне от 0 до 325.
    1) Заменить все чётные элементы на их номера. Вывести на экран исходный и новый массив.
    2) Заменить все чётные элементы, стоящие на нечетных местах, на их номера.

Ответы 1

  • 1) program X;var B:array [0..325] of integer;i,g,n:integer;Beginwrite ('Введите количество элементов массива = ');read(n);For i:= 1 to n do  Begin  B[i]:= -10+random(25); write (B[i]:4); end; writeln; writeln('новый массив');  begin   for i:=1 to n do  if B[i] mod 2=0    then begin g:=i;  B[i]:=g;    write (B[i]:4); end; end;     End.2) program X;var B:array [0..325] of integer;i,g,n:integer;Beginwrite ('Введите количество элементов массива = ');read(n);For i:= 1 to n do  Begin  B[i]:= -10+random(25); write (B[i]:4); end; writeln; writeln('новый массив');  begin   for i:=1 to n do  if (B[i] mod 2=0) and (i mod 2<>0)    then begin g:=i;  B[i]:=g;    write (B[i]:4); end; end;     End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years