Алгоритмические языки и программирование. Игошина Л.В. - 41 стр.

    S:real; {описание переменной для хранения суммы}
    i,K:byte; {описание переменных для счетчика и количества чисел}
Begin              Clrscr; {Очистка экрана}
      Write(' Введите число элементов в массиве К ='); Readln(K);
      Writeln(' Введите ',K,' вещественных чисел через пробел');
      For i:=1 to K do read(M[i]); { Ввод вещественных чисел}
      writeln; { Переход на новую строку на экране}
      S:=0.0; { Присвоение начального значения суммы}
      For i:=1 to K do
      If M[i]>0 then S:=S+M[i]; { Суммирование положительных чисел}
      Writeln(' S = ',S); { Вывод полученной суммы}
End.

              Варианты самостоятельных заданий

1. Составить схему алгоритма и программу определения суммы
   наибольшего и наименьшего элементов вещественного массива
   А={ai}, i=1,N, N- число элементов массива (N<100). Вывести на
   экран найденную сумму, а также наибольшее и наименьшее
   значения и их адреса (индексы) в массиве А.
2. Составить схему алгоритма и программу определения разности
   наибольшего и наименьшего элементов массива вещественных
   чисел М={mi}, i=1,t, t- число элементов массива (t≤50). Вывести на
   экран найденную разность, а также наибольшее и наименьшее
   значения и их адреса в массиве М.
3. Составить схему алгоритма и программу определения суммы всех
   четных чисел массива К={kj}, j=1,m, m - число элементов в массиве
   К (m≤60). Вывести на экран найденное значение суммы, а также все
   четные числа и их адреса.
4. Составить схему алгоритма и программу определения суммы всех
   нечетных чисел массива T={tj}, j=1,s, s - число элементов в массиве
   T (s≤40). Вывести на экран найденное значение суммы, а также все
   нечетные числа и их адреса.
5. Составить схему алгоритма и программу определения количества
   четных чисел массива К={kj}, j=1,m, m - число элементов в массиве
   К (m≤80). Вывести на экран найденное количество, а также все
   четные числа и их адреса.
6. Составить схему алгоритма и программу определения количества
   нечетных элементов массива T={tj}, j=1,s, s - число элементов в
   массиве T (s≤400). Вывести на экран найденное количество, а также
   все нечетные числа и их адреса.
7. Составить схему алгоритма и программу определения количества и
   адресов элементов массива целых чисел К={kj}, j=1,m, m - число