Программа :формирует массив содержащий 15 случайных целых чисел принадлежащих промежутку...

Question

Программа :формирует массив содержащий 15 случайных целых чисел принадлежащих промежутку [0..8] и прибавлчет 1 а нечётное умножает на 2

Comments

даа всё правильно поняли))

---

а если 0 то что делать?

---

понятия не имею,это программа.

---

вот и спрашиваю как решать

---

нет он же нечетный и не четный что с ним во время программы делать прибавлять 1 или игнорировать?

---

эу

---

я не знаю

---

можно я вам ещё дам одну задачу

---

а/

---

Формерует массив,содержащий 9 случайных вещественных чисел,пренадлежащий промежутку [-2;3] и подсчитывает сумму отрицательных чисел.Вввод в столбец с двумя десятичными знакоми

Answer 1

Var
a:array[1..15] of integer;
c,e:real;i:integer;
begin
randomize;
for i:=1 to 15 do
 begin
 a[i]:=random(9);
 end;
for i:=1 to 15 do
 begin
  e:=a[i] div 2;
  c:=a[i]/2;
   if a[i]=0 then write(a[i],' ')
   else
   begin
   if e=c then
    begin
     c:=a[i]+1; 
    write(c,' ');
    end
      else
    begin
     c:=a[i]*2;
     write(c,' ');
    end;
    end;
 end;
end.