Цель работы:
1. Построение схем алгоритмов с использованием массивов;
2. Разработка программ с использованием одномерных массивов
Типовой пример
Составить схему алгоритма и программу определения суммы S всех положительных элементов одномерного массива M, содержащего К вещественных чисел (К£20). Числа в массив M ввести с экрана дисплея, результат суммирования (S) также вывести на экран.
Схема алгоритма
 | |||
 | |||
нет
 |  | ||||||
 | |||||||
 | |||||||
да
 | |||
 | |||
Текст программы {Лабораторная работа 5}
{Работа с одномерными массивами Студенты гр. Фамилии }
Uses crt; {Подключение стандартного модуля TP}
Var m:array[1..20] of real; {Описание массива вещественных чисел}
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 - число элементов в массиве К (m£55), значения которых не превышают заданного значения К0. Вывести на экран найденное количество, а также все найденные адреса.
8. Составить схему алгоритма и программу определения количества и адресов элементов массива вещественных чисел P={pj}, j=1,r, r - число элементов в массиве P (r£140), значения которых не меньше заданного значения P0. Вывести на экран найденное количество, а также все найденные адреса.
9. Составить схему алгоритма и программу определения произведения наибольшего и наименьшего элементов массива целых чисел М={mi}, i=1,t, t- число элементов массива (t£250). Вывести на экран найденное произведение, а также наибольшее и наименьшее значения и их адреса в массиве М.
10. Составить схему алгоритма и программу определения количества и адресов нулевых элементов массива вещественных чисел К={kj}, j=1,m, m - число элементов в массиве К (m£90). Вывести на экран найденное количество, а также все найденные адреса.
11. Составить схему алгоритма и программу определения сумм всех положительных и отрицательных элементов массива вещественных чисел М={mi}, i=1,t, t- число элементов массива (t£200). Вывести на экран найденные значения.
12. Составить схему алгоритма и программу определения количества положительных и отрицательных элементов массива вещественных чисел К={кi}, i=1,t, t- число элементов массива (t£120). Вывести на экран найденные значения.
13. Составить схему алгоритма и программу определения количества и адресов элементов массива вещественных чисел P={pj}, j=1,r, r - число элементов в массиве P (r£180), значения которых равны заданному значению P0. Вывести на экран найденное количество, а также все найденные адреса.
14. Составить схему алгоритма и программу определения суммы и количества положительных элементов массива вещественных чисел К={кi}, i=1,t, t- число элементов массива (t£170). Вывести на экран найденные значения.
15. Составить схему алгоритма и программу определения суммы и количества отрицательных элементов массива вещественных чисел К={кi}, i=1,t, t- число элементов массива (t£260). Вывести на экран найденные значения.
16. Составить схему алгоритма и программу определения количества и адресов положительных элементов массива вещественных чисел К={kj}, j=1,m, m - число элементов в массиве К (m£190). Вывести на экран найденное количество, а также все найденные адреса.
17. Составить схему алгоритма и программу определения суммы и адресов положительных элементов массива вещественных чисел К={kj}, j=1,m, m - число элементов в массиве К (m£900). Вывести на экран найденное количество, а также все найденные адреса.
18. Составить схему алгоритма и программу определения количества и адресов отрицательных элементов массива вещественных чисел К={kj}, j=1,m, m - число элементов в массиве К (m£110). Вывести на экран найденное количество, а также все найденные адреса.
19. 
Составить схему алгоритма и программу определения суммы и адресов отрицательных элементов массива вещественных чисел К={kj}, j=1,m, m - число элементов в массиве К (m£450). Вывести на экран найденное количество, а также все найденные адреса.
20. Составить схему алгоритма и программу определения количества и адресов нулевых элементов массива целых чисел К={kj}, j=1,m, m - число элементов в массиве К (m£300). Вывести на экран найденное количество, а также все найденные адреса.
Лабораторная работа №6
