Задан одномерный массив А, содержащий N элементов. Укажите, что будет определено в результате работы следующего фрагмента программы: k:=0;

for i:=1 to N do

if A[i]>=0 then k:=k+1
Выберите один ответ:
Количество положительных элементов массива
Сумма положительных элементов массива
Количество неотрицательных элементов массива
Максимальный элемент массива

рождения 30.05.95

300

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

в1+в2=5

(в1+в2+в3)/3=3

(5+в3)/3=3

5+в3=9

в3=4 

за тридевять земель или к чёрту на кулички