Ребят,срочно! Ввести одномерный массив из 9-ти элементов. Увеличить вдвое значение...

Question

Ребят,срочно!
Ввести одномерный массив из 9-ти элементов. Увеличить вдвое значение каждого положительного элемента, отрицательные элементы заменить нулём. Напечатать исходный и изменённый массив.
язык Паскаль

Answer 1

Var
a:array[1..9] of integer;
i:integer;
begin
  randomize;
  for i:=1 to 9 do begin
    a[i]:=random(-10,10);
    if a[i] > 0 then a[i]:=sqr(a[i]) else a[i]:=0;
    writeln(a[i]);
  end;
end.

Comments

сможешь с еще одной задачкой помочь?тоже связанную с массивами

---

могу но вечером, напиши в личку