var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.

если что то не понятно,спрашивай)

0 0

4 года назад

Помогите пожалуйста Дам 38 баллов Ps там нужно выбрать несколько вариантов

Anita68 [252]

2 и 3

1 точно не то. в двоичной системе 0 и 1 используется

4 ну и русский язык.... он не для всех

0 0

4 года назад

Массив из 5 элементов, ввод/вывод элементов, сумма и минимальное значение.

Михаил Миногин

begin

var a := ReadArrInteger(5); a.Println;

a.Sum.Println;

a.Min.Println;

end.

0 0

4 года назад

Вставь пропущенные слова Файл - это область___________________на диске, которая имеет_____________________.

Вставь пропущенные слова Файл - это область_на диске, которая имеет___.