Program mas; var a: array[1..100] of integer; i, n: integer; begin randomize; writeln('введите размерность массива',n); readln(n); for i: =1 to n do a[i]: =random(45)-1; readln; for i: =1 to n do begin if a[i]> 15 then write(' ',a[i]); end; readln; end.
Спасибо
Ответ дал: Гость
если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется
Ответ дал: Гость
ошибка в том что натуральный логарифм (-1) не существует
program summa; uses crt; var n,i: integer; s: real;
Популярные вопросы