Уменьшить в 2 раза все отрицательные элементы массива, состоящего из целых случайных числе из интервала (-5;5). Ученик написал программу, допустив в ней 10 ошибок. Исправьте ошибки ученика.
program Вася;
var a: array [-5..5] of integer;
i, n: integer;
begin
write (введите количество элементов массива)
read (n)
for i:=1 to n do
begin a[i] = - 5+random(5);
writeln (a[i]);
if a[i]<0 then a[i]:=a[i]/2;
end.
for i:=1 to n do write (a[i])
end.
​

AnnaFox2000    3   09.04.2020 13:22    1