Порядок выполнения

1. Зайти в Borland Pascal.

2. Набрать текст программы для решения задачи № 1 и получить ответ для контрольного примера.

3. Исправить программу так, чтобы она находила сумму и количество положительных элементов.

4. Исправить программу так, чтобы она находила произведение и среднее значение всех элементов.

5. Исправить программу так, чтобы она находила максимальное и минимальное значение в массиве.

Пример задачи

Задача 1. Дан одномерный массив Aизnэлементов. Найти сумму элементов массива: .	Program Lab4; Var A:array[1..100] of real; i,n:integer; s:real; Begin writeln('Введи n'); read(n); s:=0; writeln('Введи массив A'); for i:=1 to n do begin read(A[i]); s:=s+A[i]; end; writeln('s=',s:10:3); End.
Контрольный пример. Исходные данные: ; . Ручной счёт: . Результат: .
Экран пользователя. Введи n 5 Введи массив A 1 2 3 5 -1 s= 10.000

Дополнительное задание

1. Дан массив L(n). Найти количество элементов, больших корня из суммы положительных элементов.

2. Дан массив G(q). Найти произведение неотрицательных элементов и сумму элементов в диапазоне от 10 до 20.

3. Дан массив A(n). Найти сумму и количество элементов, равных среднему значению.

4. Дан массив C(m). Найти отношение максимального к минимальному элементу.

5. Дан массив D(n). Найти минимальный среди элементов, больших суммы, и найти количество элементов, не равных максимальному.

6. Дан массив A(n). Сформировать новый массивBумножением элементов массиваAна 100. В новом массиве переставить местами третий и предпоследний элементы.

7. Дан массив A(n). Положительные элементы массива заменить на их сумму, а отрицательные элементы уменьшить на минимальный.

8. Дан массив A(n). Найти сумму элементов на чётных местах и произведение элементов, кратных 3.

9. Дан массив A(n). У нечётных элементов отбросить дробную часть числа, а у элементов с индексами, дающими остаток 1 при делении на 3, отбросить целую часть числа.

10. Сформировать массив случайных чисел в диапазоне от 10 до 20 и округлить значения элементов, по модулю меньших 1.

Фрагменты вычисления характеристик одномерного массива

Характеристика	Для всех элементов ai	Для части элементов
Сумма s	s:=0; for i:=1 to n do s:=s+A[i];	s:=0; for i:=1 to n do if A[i]>z then s:=s+A[i];
Количество k	k:=n;	k:=0; for i:=1 to n do if A[i]>z then k:=k+1;
Произведение p	p:=1; for i:=1 to n do p:=p*A[i];	p:=1; for i:=1 to n do if A[i]>z then p:=p*A[i];
Максимальное значение max	max:=A[1]; for i:=2 to n do if A[i]>max then max:=A[i];	max:=-1E10; for i:=1 to n do if (A[i]>max) and (A[i]>z) then max:=A[i];
Минимальное значение min	min:=A[1]; for i:=2 to n do if A[i]<min then min:=A[i];	min:=1E10; for i:=1 to n do if (A[i]<min) and (A[i]>z) then min:=A[i];
Среднее значение sr	s:=0; for i:=1 to n do s:=s+A[i]; sr:=s/n;	s:=0; k:=0; for i:=1 to n do if A[i]>z then begin s:=s+A[i]; k:=k+1; end; sr:=s/k;