Работа с одномерными массивами, Помогите решить задачку!!! Опции

[blacbaron]

Помогите решить задачку!!!
Задать массив состоящий из 10 целых чисел.
Найти максимальный элемент массива.
В 3 раза увеличить значение отрицательных элементов массива.
Найти кол-во ненулевых элементов массива.
ПОЖАЛУЙСТА.

ПРИМЕЧАНИЕ:
Решить её надо с помощью процедур.

М

Сообщения объеденены. А на будущее : существует кнопка ПРАВКА klem4

[Fang]

Не знаю правильно или нет но у меня вот, что получилось:

type
  massiv = array[1..10] of integer; {Задаем массив из 10 чисел}
var
  a: massiv;
  i,cnt,max: integer;

procedure OutMass(mas: massiv);  {вывод массива}
begin
  write('Массив: ');
  for i:=1 to 10 do
    write(a[i], ' ');
end;

procedure FindMax(mas : massiv); {находим макс. эл-т}
begin
  max:=a[1];
  for i:=2 to 10 do
    if a[i] > max then max:=a[i];
  writeln('Максимальный элемент: ', max);
end;

procedure IncOtric(mas: massiv); {в 3 раза увеличиваем значение отриц. эл-в}
begin
  for i:=1 to 10 do
    if a[i] < 0 then a[i]:=3*a[i];
end;

procedure NeNull(mas: massiv);  {счит. кол-во ненулевых эл-в}
begin
  cnt:=0;
  for i:=1 to 10 do
    if mas[i] <> 0 then inc(cnt);
  writeln('Кол-во ненулевых элементов: ', cnt);
end;
{--// Основная программа //--}
begin
  for i:=1 to 10 do
    begin
      write('A[',i,']: ');
      readln(a[i]);
    end;
  OutMass(a); {выводим массив}
  FindMax(a); {ищем и выводим максимальный эл-т}
  IncOtric(a); {увелич. отриц. эл-ты}
  NeNull(a); {считаем ненулевые эл-ты}
  OutMass(a); {заново выводим массив}
end.

Сообщение отредактировано: volvo - 8.11.2006 15:53