Корпус - __________________________________________ модем - __________________________________________ тут посмотри ...-__________________________________________ мышь - может еще трекбол или джостик нипишем ))) __________________________________________ А чё про принтер то ни кто не написал ))) __________________________________________ Дисковод!! ! -интересно, а без Дисковода компьютер может работать ))) а ну да А еще ...)))
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer;Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);<span>End.</span>
<span>x = (input("Введіть число з 0 и 1:"))
nul = []
one = []
new = x.split('0')
nul.append(new)
newn = x.split('1')
one.append(newn)
print(nul)
print(one)</span>
var a: array [1..100] of integer;
i,n,min,max:integer;
Begin
read(n);
for i := 1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
for i:= 1 to n do begin
write(a[i],' ');
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(min,max);
End.