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.