Почему не работает? - 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);

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.077 из 5
Похожие ответы