• составьте программу которая формирует массив из 14 случайных чисел, принадлежащих промежутку [-20, 30], заменяет все чётные значения элементов массива квадратами их номеров

Ответы 4

  • uses crt;var a:array[1..14] of integer; i,n:integer;beginrandomize;for i:=1 to 14 do begin a[i]:=random(51)-20; write(a[i],' '); end;writeln;for i:=1 to 14 do if a[i]=0 then begin n:=i; write(n,' '); end;end.
  • это является верным?
    • Автор:

      edwards
    • 5 лет назад
    • 0
  • нет. У тебя идет условие if a[i] = 0. т.е. если очередной эл-т массива равен нулю, то ты выводишь это число, нужно так if a[i] mod 2 = 0 then write(i*i, ' ') else write(a[i], ' ');
    • Автор:

      aránzazu
    • 5 лет назад
    • 0
  • // PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!// Индексация с "1", если номера даются, начиная с "0", заменить (i+1)*(i+1) на (i*i)beginvar a:= ArrRandom(14,-20,30).Println.Select((v,i)->v.IsEven?(i+1)*(i+1):v).Println;end.Пример: 28 -12 -8 21 -16 11 3 21 11 -13 26 4 -19 231 4 9 21 25 11 3 21 11 -13 121 144 -19 23
  • Добавить свой ответ

Войти через Google

или

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

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

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