Написать программу: 1) сформировать массив из 18 целых случайных чисел из [-35;35], вывести исходный массив в строку; 2) найти среднее арифметическое всех четных элементов массива; 3) найти сумму неотрицательных элементов; 4) заменить числом 5 элементы, стоящие на четных местах, и числом 0 - элементы, стоящие на нечетных местах, вывести в строку получившийся массив.
Answers & Comments
const
j = 18
var
n,j, i, s,s1: integer;
mas: array [1..j] of integer;
begin
randomize;
writeln ('сгенерированный масив: ');
for i := 1 to j do
begin
mas[i] := random (70) - 35;
write (mas[i]);
end;
s:= 0; s1:=0;
for i := 1 to j do
begin
if (i mod 2 =0) then s := s+mas[i]; //сумма четных элементов
if (mas[i] >= 0) then s1 := s1 + mas[i]; //сумма неотрицательных элементов
end;
writeln ('среднее арифметическое четных элементов: ', s/18);
writeln ('сумма неотрицательных элементов: ', s1);
writeln ('массив после замены элементов: ');
for i := 1 to j do
begin
if (i mod 2 =0) then mas[i] := 5 else mas[i] := 0;
write (mas[i]);
end;
end;
end.