В матрице A надо найти сумму четных элементов с помощью функции - Pascal ABC
Формулировка задачи:
В матрице(одномерный массив) A надо найти сумму четных элементов с помощью функции, а в матрице В(двумерный массив) количество четных элементов с помощью процедуры. Помогите пожалуйста, не понимаю как сделать.
Вот что сделал:
Решение задачи: «В матрице A надо найти сумму четных элементов с помощью функции»
textual
Листинг программы
Program demo; type vas = array[1..100] of integer; mas = array[1..20, 1..20] of integer; procedure zapolnenie1(var c:vas; x: integer); var k: integer; begin for k:=1 to x do c[k]:=random(10); end; procedure zapolnenie(var c:mas; g,x: integer); var k,m: integer; begin for k:=1 to g do for m:=1 to x do c[k,m]:=random(10); end; procedure vivod1(c:vas; x: integer); var k: integer; begin for k:=1 to x do write(c[k]:2); writeln; end; procedure vivod(c:mas; g,x: integer); var k,m: integer; begin for k:=1 to g do begin for m:=1 to x do write(c[k,m]:2); writeln; end end; function Summa(c:vas; x: integer):integer; var k,s: integer; begin s:=0; for k:=1 to x do if c[k] mod 2 = 0 then s:=s+c[k]; Summa:=s; end; procedure kol(c:mas; g,x:integer; var q:integer); var k,m:integer; begin q:=0; for k:=1 to g do for m:=1 to x do if c[k,m] mod 2=0 then q:=q+1; end; var a: vas; b: mas; r,g,x,q:integer; begin write('Введите размер массива А r='); readln(r); zapolnenie1(a,r); // заполнение массива A writeln('Исходный массив A'); vivod1(a,r); // вывод массива A writeln('Сумма четных элементов в массиве A=',summa(a,r)); writeln('Введите размеры массива B'); readln(g,x); zapolnenie(b,g,x); // заполнение массива B writeln('Исходный массив B'); vivod(b,g,g); // вывод массива B Kol(b,g,x,q); writeln('Количество четных элементов в массиве B=',q); end.
Объяснение кода листинга программы
- Создается программа на языке Pascal ABC.
- Определяются типы данных: vas (массив целых чисел размером до 100) и mas (двумерный массив целых чисел размером до 20 на 20).
- Определяются три процедуры: zapolnenie1, zapolnenie и kol.
- В процедуре zapolnenie1 заполняется массив A случайными числами.
- В процедуре zapolnenie заполняется двумерный массив B случайными числами.
- В процедуре kol вычисляется количество четных элементов в массиве B.
- Создается переменная a типа vas для массива A.
- Запрашивается размер массива A.
- Заполняется массив A случайными числами.
- Выводится исходный массив A.
- Вычисляется сумма четных элементов массива A с помощью функции summa.
- Запрашиваются размеры массива B.
- Заполняется массив B случайными числами.
- Выводится исходный массив B.
- Вычисляется количество четных элементов в массиве B.
- Выводится количество четных элементов в массиве B.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д