Замените все элементы массива на их дробную часть

Question

Информатика

Риммична

27 марта, 20:45

Замените все элементы массива на их дробную часть

+2

Ответы (1)

Знаете ответ на вопрос?

Симона · Answer 1

Сделал как понял:

var i, n:integer;

a:array[1 ... 100] of real;

begin

write ('Write size array: ') ; readln (n) ;

for i:=1 to n do

begin

a[i]:=-20+40*random;

write (a[i]:7:2) ;

end;

writeln;

for i:=1 to n do

begin

a[i]:=frac (a[i]) ;

write (a[i]*100:7:0) ;

end;

end.