МАССИВЫ 9 КЛАСС1) положительные элементы массивы заменить на 0.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.