После Program введи что-то, например zadanie;
Не забудь про символ "точка с запятой"
Program massive (input, output);
type vector=array[1..10] of integer;
var I:integer;
z:vector;
begin
for I:=1 to 10 do
read (z[I]);
for I:=1 to 10 do
if z[I]<0 then z[I]:=z[i]*(-1);
for I:=1 to 1o do
write (z[I], ' ');
end.
1) 1.024
2)0.002
Дальше не знаю...
16. а) 101010+1101=110111 б) 1010+1010=10100 в) 10101+111=11100
17. а) 1010*11=11110 б) 111*101=11011 в) 1010*111=1100110
Раздел матиматичейской логики. ответ 1. И да ты даёшь 5 баллов. а не 45. Не ври больше)