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.
1100100
я это сделал в калькуляторе
если калькулятор на компе то берёшь открываешь калькулятор пишешь 100 сверху есть опции: вид правка справка заходишь в вид выбираешь программист и потом выбираешь справа bin
112.
C:\Литература\Поэзия\Пушкин.doc
БГАГЕГВД.
113.
D:\Программы\Игры\Стратегии\Фараон
114.
D:\Уроки\Алгебра\Квур.txt (Я не понял что это за слово.)
115.
E:\География\Фото\Днепр.jpg
116.
3)
117.
Попробую объяснить.
Иерархия:
1)МИН и MAX -- вверх.
2.1)1 -- ниже в папке МИН.
2.2)11 -- ещё ниже, соединён с 1. (ты понимаешь о чём я.)
3)2 -- рядом с папкой 1.
118.
Голливуд.
119.
D:\Лето\Фото\125.jpg
120.
Я не понял что за буква, но выглядит ответ примерно так: a.bmp
program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
Фигура становится плоской.