Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата



               else       writeln (' Средние положительные = ', S0/k);

end.

Массивы

            

Задача 1:

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

Program sum-prois;

uses crt;

const

            n = 100;

var

            a: array [1…n] of real;

            n, k, i: integer;

            p, s: real;

begin

            clrscr;      s: = 0;  p: =1;

            writeln ('введите размер массива');     readln (nk);

            writeln ('введите элемент массива');

            for i:=1 to nk do

                                  readln (a[i] );

            for i:=1 to nk do

                                   begin

                                s:= s + a[ i ];

                                p:= p * a[ i ];

                                   end;

          writeln ('Сум. = ', s, 'Произ. =' , p);

Рекомендуем скачать другие рефераты по теме: конспекты занятий в детском саду, менеджмент.

Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата