Здравствуйте, помогите плиз, умоляю!!! дан массив из 20 целых чисел, все его элементы разделить на первый элемент.
Здравствуйте, помогите плиз, умоляю!!! дан массив из 20 целых чисел, все его элементы разделить на первый элемент.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы