Question

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

Answer 1

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

Answer 2

Задача 1.

Answer 3

var
i:integer;
a:array [1..10] of integer;
begin
// Генерация массива из 10 случайных элементов и вывод их на экран
writeln('Сгенерированный массив');
// Генерация элементов от -100 до 100
randomize;
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.

Answer 4

Задача 2. var
i,s:integer;
a:array [1..10] of integer;
begin
// Генерация массива из 10 случайных элементов и вывод их на экран
writeln('Сгенерированный массив');
// Генерация элементов от -100 до 100
randomize;
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.

Answer 5

Задача 3. var
i,k:integer;
a:array [1..10] of integer;
begin
// Генерация массива из 10 случайных элементов и вывод их на экран
writeln('Сгенерированный массив');
// Генерация элементов от -100 до 100
randomize;
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.

Answer 6

Задача 4. var
i:integer;
a:array [1..10] of integer;
begin
// Генерация массива из 10 случайных элементов и вывод их на экран
writeln('Сгенерированный массив');
// Генерация элементов от -100 до 100
randomize;
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.