Question

1.В произвольно заданном одномерном массиве ( случайные значения из отрезка -6 до 11 ) из 6 элементов, определить количество отрицательных, нулевых и положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.

Answer 1

Первая программа:
program first;
var mas:array[1..6] of integer; mass:array[1..3] of integer; a:integer;
begin
a:=1;
while i<7
randomize;
random(a);
if a<11 and a>6 then begin
mas[i]:=a;
a:=a+1;
end;
for i:=1 to 6 do begin
if mas[i]<0 then mass[1]:=mass[1]+1;
if mas[i]=0 then mass[2]:=mass[2]+1;
if mas[i]>0 then mass[3]:=mass[3]+1;
end;
writeln('Положительных елементов в масиве',mass[3]);
writeln('Елекантов равных нулю в масиве',mass[2]);
writeln('Отрицательных елементов в масиве',mass[1]);
end.