СРОЧНО НАДО 1.Заменить первый отрицательный элемент нулем 2.Умножить все элементы,...

Question

СРОЧНО НАДО

1.Заменить первый отрицательный элемент нулем

2.Умножить все элементы, кратные трем, на третий элемент массива

3.Из элементов массива Р сформировать массив М того же размера по правилу: если номер четный , то Рi=i*Mi, если нечетный, то Рi=-Mi

Answer 1

1)
 var 
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin <br>if a[i]<0 then begin a[i]:=0;<br>i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
for i:= i to 10 do
if a[i] mod 3 =0 then a[i]:=a[i]*3;
for i:= i to 10 do write(a[i]);
end.

Comments

Это все три задания или только два?

---

это первое

---

и второе

---

А, спасибо)