Составьте программу на Pascal используя блок схему:
где A= 10000 рыб а прирост 10%
В цикле будет:
1) Запас А:= А + 0.10*А – В
2) Прибавить год N:=N+1
Используем Цикл с заданным условием окончания работы (цикл-ДО, цикл с постусловием).
До А < С все будет работаеть. Потом план выполняться уже не будет, т.к. запас рыб не восполнится.

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];

Объяснение:

Логическая функция - взаимосвязь между различными высказываниями, которые мы называем аргументами функции. Похожа на обычную числовую функцию, только вместо чисел - высказывания.

Логическое выражение - это конструкция в языке программирования, которая при выполнении даёт результат "истина" или "ложь".

Общее этих понятий в том, что они используются, например, в программе Excel, а также они связаны скорее не с числами, а с утверждениями. А разница в том, что первое - это зависимость, а второе - конструкция.