Размещено 5 лет назад по предмету
Информатика
от kosha22222
Уменьшить в 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.