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

9 октября, 2022 от ilyuha_otvecha

Вопрос от посетителя

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.