здравствуйте, помогите плиз, умоляю!!! дан массив из 20 целых чисел, все его элементы...

Question

здравствуйте, помогите плиз, умоляю!!! дан массив из 20 целых чисел, все его элементы разделить на первый элемент.

Answer 1

var a:array [1..100] of real;
i,n:integer;

t:real;

Begin
  randomize;
  n:=20;
  for i:= 1 to n do begin
    a[i]:=random(n*10)- 10*n div 2 ;
    write(a[i]:4);
    if i mod 10=0 then writeln;
  end;
 

  t:=a[1]

  for i:= 1 to n do begin
    a[i]:=a[i]/t ;
    write(a[i]:4);
    if i mod 10=0 then writeln;
  end;
 End.