Почему не работает? - Free Pascal
Формулировка задачи:
program Pr2; const n1 = 15; type massiv = array [1..n1] of integer; var a: massiv; max1, n: integer; procedure vvod(b: massiv); var i: integer; begin writeln('введите массив'); for i := 1 to n do readln(b[i]); end; function sum(b: massiv): integer; var i,s: integer; begin s:=0; for i := 1 to n do if b[i] mod 2 <> 0 then s := s + b[i]; sum:=s; end; procedure maxim(b: massiv; var max: integer); var i: integer; begin max := b[1]; for i := 1 to n do if b[i] > max then max := b[i]; end; begin writeln('введите кол-во элементов массива:'); readln(n); vvod(a); writeln('сумма нечетных:', sum(a)); maxim(a, max1); writeln('максимальный элемент:', max1); end.
Решение задачи: «Почему не работает?»
textual
Листинг программы
procedure vvod(var b: massiv);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д