Решение задач с массивами
Задание. Списать все три задачи в тетрадь без ошибок и прислать фото конспекта Рассмотрим решение типовых задач. 1. Задача 1. Данных массив из 10 целых чисел. Найти в нем сумму четных и произведение нечетных элементов. Решение. Program a2; - название программы а2 Const n=10; - размерность массива Var - начало раздела описаний A:array [1..n] of integer; - описываем массив А, состоящий из 10 целых чисел Is,p:integer; - параметр цикла Begin - начало программы Randomize; - подключаем генератор случайных чисел For I:=1 to n do - перемещаясь последовательно от ячейки к ячейке Begin открываем операторную скобку a[I]:=random(10); - с 1 по 10-ую ячейки памяти заполняем случайными целыми числами, write(‘ ‘,a[I]:1) - и выводим их на экран end ; - закрываем операторную скобку writeln; - перевод курсора на следующую строку s:=0; - в ячейку s записываем ноль для получения суммы p:=1; - в ячейку p записываем единицу для получения произведения for I:=1 to n do - перемещаясь последовательно от ячейки к ячейке проверяем, if not odd(a[I]) then - если элемент четный, s:=s + a[I] если - то прибавляем его к содержимому ячейки s, else - иначе (т.е. нечетный) p:=p*a[I]; - умножаем на содержимое ячейки p writeln(‘s=’,s:3); - вывод суммы четных чисел writeln(‘p=’,p:3); - вывод произведения нечетных чисел. readln end. В данной задаче использована функция odd(x), проверяющая нечетность чисел, так как массив содержит целые числа. Функция odd(x) = истине, если число нечетное и = ложь, если число четное.