МАССИВЫ 9 КЛАСС
1) положительные элементы массивы заменить на 0.
2)найти сумму элементов, меньших 7.
3)найти количество четных элементов
4)найти номера элементов кратных 7.
5)элементы, стоящие на нечетных местах, заменить на 1, а на четных местах заменить на 2.
Пожалуйста помогите, нужно на завтра!

Задача 1.

vari:integer;a:array [1..10] of integer;begin// Генерация массива из 10 случайных элементов и вывод их на экранwriteln('Сгенерированный массив');// Генерация элементов от -100 до 100randomize; for i:=1 to 10 do begin a[i]:=random(201)-100; write(a[i],' '); end; writeln; // Замена положительных элементов на 0 writeln('Замена положительных элементов на 0'); for i:=1 to 10 do begin if a[i]>0 then a[i]:=0; write(a[i],' '); end; end.

Задача 2. vari,s:integer;a:array [1..10] of integer;begin// Генерация массива из 10 случайных элементов и вывод их на экранwriteln('Сгенерированный массив');// Генерация элементов от -100 до 100randomize; for i:=1 to 10 do begin a[i]:=random(201)-100; write(a[i],' '); end; writeln; // Сумма элементов <7 s:=0; for i:=1 to 10 do if a[i]<7 then s:=s+a[i]; write('Сумма элементов, меньших 7 = ',s); end.

Задача 3. vari,k:integer;a:array [1..10] of integer;begin// Генерация массива из 10 случайных элементов и вывод их на экранwriteln('Сгенерированный массив');// Генерация элементов от -100 до 100randomize; for i:=1 to 10 do begin a[i]:=random(201)-100; write(a[i],' '); end; writeln; // Количество четных элементов k:=0; for i:=1 to 10 do if a[i]<7 then k:=k+1; write('Количество четных элементов = ',k); end.

Задача 4. vari:integer;a:array [1..10] of integer;begin// Генерация массива из 10 случайных элементов и вывод их на экранwriteln('Сгенерированный массив');// Генерация элементов от -100 до 100randomize; for i:=1 to 10 do begin a[i]:=random(201)-100; write(a[i],' '); end; writeln; // Номера элементов кратных 7 for i:=1 to 10 do if a[i] mod 7=0 then writeln('Номер элемента кратного 7 ',i); end.

1) Сколько элементов должно быть в массиве? 2) Это 5 разных задач?