Программирование на языке Паскаль. Часть II К. Поляков, 2006-2011 Сумма выбранных элементов 1 Задача: заполнить массив случайными числами в интервале [-10,10] - презентация

1 Программирование на языке Паскаль. Часть II К. Поляков, Сумма выбранных элементов 1 Задача: заполнить массив случайными числами в интервале [-10,10] и подсчитать сумму положительных элементов. Идея: используем переменную S для накопления суммы. Решение: 1)записать в переменную S ноль 2)просмотреть все элементы массива: если очередной элемент > 0, то добавить к сумме этот элемент 3)вывести значение суммы S:=0S:= A[1]S:= A[1]+A[2] S:= A[1]+A[2]+A[3] S:= A[1]+A[2]+…+A[N] S:= S+A[i]

2 Программирование на языке Паскаль. Часть II К. Поляков, Сумма выбранных элементов 2 начало конец нет да нет да i <= N? S:= 0 i:= 1 A[i] > 0? S:= S + A[i] i:= i + 1 пока ни одного не нашли начать с 1-ого перейти к следующему нашли еще 1

3 Программирование на языке Паскаль. Часть II К. Поляков, Сумма выбранных элементов 3 program qq; const N = 5; var A: array [1..N] of integer; i, S: integer; begin { здесь надо заполнить массив } S:= 0; for i:=1 to N do if A[i] = 0 then count:= count + 1; writeln('Cумма полож. элементов: ', S); end. program qq; const N = 5; var A: array [1..N] of integer; i, S: integer; begin { здесь надо заполнить массив } S:= 0; for i:=1 to N do if A[i] = 0 then count:= count + 1; writeln('Cумма полож. элементов: ', S); end. for i:=1 to N do if A[i] > 0 then S:= S + A[i]; for i:=1 to N do if A[i] > 0 then S:= S + A[i]; перебираем все элементы массива

4 Программирование на языке Паскаль. Часть II К. Поляков, Задания 4 «4»: Заполнить массив из 10 элементов случайными числами в интервале [0,100] и подсчитать отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые 50. «5»: Заполнить массив из 10 элементов случайными числами в интервале [10,12] и найти длину самой длинной последовательности стоящих рядом одинаковых элементов. Пример: Исходный массив: Длина последовательности: 3