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

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.

это является верным?

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

// 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