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

[blacbaron]

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

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

М

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

[volvo]

To: Fang & virt
Не "возводим в куб", а "увеличиваем в 3 раза" !!!

procedure IncOtric(var mas: massiv);
begin
  for i:=1 to 10 do
    if mas[i] < 0 then mas[i]:=3*mas[i];
end;

P.S. Кстати, Fang, твоя программа будет вообще что-то непотребное делать... Объясни мне, например, зачем ты передаешь в процедуру параметр, а работаешь НЕ с ним, а с глобальным массивом?

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

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

Будь внимательнее в следующий раз. А лучше НЕ позволять таким ошибкам появляться (возложи это на компилятор)... Если переменная

var
  a: massiv;

будет определена непосредственно после описания всех процедур и функций, перед основным блоком программы, то такие ошибки будут найдены при компиляции...

Сообщение отредактировано: volvo - 19.11.2005 11:26