Первый и последний. А за PSPad Вам спасибо, не знал. Полезная вещь!
3)
program mas;
uses crt;
var
mass:array [1..11] of integer;
i:integer;
begin
for i:=1 to 11 do
begin
mass[i]:=i;
writeln(' ',mass[i]);
end;
end.
2)
program mas;
uses crt;
var
mass1,mass2,mass3:array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
mass1[i]:=random(11);
mass2[i]:=random(11);
end;
for i:=1 to 10 do
begin
if mass1[i]<mass2[i] then
mass3[i]:=mass1[i]
else
mass3[i]:=mass2[i];
end;
for i:=1 to 10 do write(' ',mass3[i]);
end.
1....не хватает немного условий...я просто даже понять не могу что там.
Var a: array [1..5] of integer;
begin
readln(a[1],a[2],a[3],a[4],a[5]);
write(a[1],',',a[2],',',a[3],',',a[4],',',a[5])
end.
2³³ бит = 8589934592 бит = 1073741824 байт = 1048576 кбайт = 1024 мбайт
1024 / 1.4 ≈ 731.4
Значит для хранения информации о яйцеклетке требуется 732 дискеты.