Найти ошибки в программе и исправить. записать в тетрадь правильный код программы и пояснение, какую решает данная программа? program n; var a: array[1..100] of integer; n, min: integer; begin write (‘n=’); readln (n); for i: =1 to n do begin a[i]: = random(46)-20; writeln (a[i]); end; min: =a[1]; num: =0; for i: =1 to n do if a[i]< min then begin min: =a[i]; num: =i; end; writeln(‘ ‘,num); end.

МаринаДоблер    3   18.04.2019 15:50    2