1.
program n1;
var
k, s: integer;
a: array [1..8] of integer;
begin
for k := 1 to 8 do readln(a[k]); // с клавиатуры вводится массив из 8
s := 0; элементов
for k := 1 to 8 do
if a[k] < 0 then s := s + a[1]; // в цикле 4 раза к s прибавляют 1-ый элемент
writeln(s); // выводится s
end.
ответ: 4(т.к 1-ый элемент массива 1 и в нём 4 отрицательных элемента)
2.
Надо строку if a[k] < 0 then s := s + a[1];
Заменить на строку if a[k] < 0 then s := s + a[k];
Объяснение:
program z1;
const n=5;
var i,s: integer;
a:array[1..n] of integer;
begin
s := 0;
write('Массив : ');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:3);
s:=s+a[i]
end;
writeln;
writeln('Сумма значений элементов целочисленного массива ',s);
writeln('Среднее арифметическое значений элементов целочисленного массива ',s/n)
end.
Объяснение:
n - размерность массива
s - сумма значений элементов
В цикле с параметром:
1) задаём значение элемента массива
2) выводим элемент на экран
3) считаем сумму
Выводим на экран сумму
Выводим на экран среднее арифметическое (делим сумму на количество элементов массива)
