1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все...

Question

1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все нечетные элементы с четными индексами на нули. Выведите на экран исходный и полученный массивы.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все его положительные элементы на наибольший отрицательный элемент. Выведите на экран исходный и полученный массивы.

Answer 1

№1var r,n:integer;C:Array[0..9]of integer;Beginfor r:=0 to 9 do beginC[r]:= random(50)-25;  write(C[r]:4);if (abs(C[r]) mod 2 = 1)and (r mod 2 = 0) then C[r] := 0;end;writeln;foreach n in C dowrite(n:4);end.№2var r,n,m,max,k:integer;C:Array[0..9]of integer;Beginmax:=-30;for r:=0 to 9 do beginC[r]:= random(50)-25;  write(C[r]:4);if (C[r] < 0) and (max < C[r]) then max := C[r];end;writeln;for r:=0 to 9 do beginif C[r] > 0 then  C[r]:= max;end;writeln;foreach n in C dowrite(n:4);end.

Comments

Огромное спасибо, а это только 1 задача

---

и №2