Question

Дан массив целых чисел A[1..8]. Найти количество отрицательных элементов массива. (Без структуры "Inc").

Answer 1

1 c:=0
for i:=1 to 8 do begin
if a [i]<0 then inc (c);
end;
writeln (c);
2  c:=0
for i:=1 to 8 do begin
c=c+i×i;
end;
writeln (c);

Answer 2

Для решения этой задачи можно использовать цикл "for" и условный оператор "if". Вот пример кода на языке Pascal:

cssCopy code
var
  A: array[1..8] of integer;
  i, count: integer;

begin
  count := 0;
  for i := 1 to 8 do
  begin
    readln(A[i]);
    if A[i] < 0 then
      count := count + 1;
  end;
  writeln('Количество отрицательных элементов: ', count);
end.

В этом коде мы объявляем массив целых чисел A с размерностью 8 и переменные i и count, которые будут использоваться для итерации по массиву и подсчета количества отрицательных элементов соответственно.

Затем мы вводим элементы массива A с помощью функции readln и проверяем каждый элемент с помощью условного оператора "if". Если элемент меньше нуля, то мы увеличиваем счетчик count на 1.

Наконец, мы выводим результат на экран с помощью функции writeln.