Умножить на 3 положительные элементы массива, отрицательные разделить на 2, а равные нулю – заменить числом 5

@ASOI-Danik · Регистрация: 25.10.2018

Author24 — интернет-сервис помощи студентам

ПОМОГИТЕ ПОЖАЛУЙСТА С ОБЪЯСНЕНИЕ ТОЛЬКО УЧУСЬ И В ЧЕМ ОШИБКА

Дан одномерный массив чисел. Умножить на 3 его положительные элементы, отрицательные разделить на 2, а равные нулю – заменить числом 5. (Реализовать задачу, используя IF.)

Pascal

Program abc;
var
 mas: array[0..10] of integer;
 i: real;
begin
writeln('Введите значение i');
readln(i);
 if i>0 then
  mas[i]:= i*3
 else
  if i<0 then
   mas[i]:= i/2
  else
   if i=0 then
    mas[i]:=5;
writeln(mas);    
   
   
end.

@Sun Serega · 25.10.2018, 00:35

Индекс массив должен быть integer, про это вам и говорит компилятор. То есть у i должен быть тип integer.

@JuriiMW · 25.10.2018, 05:12

Во-первых, смотрите в условие: „отрицательные разделить на 2“
Это говорит о том, что массив должен быть действительных чисел, ибо нечётное число поделённое на 2 нельзя положить в целочисленный массив.

Во-вторых, у вас в задании не сказано о размере массива.
В таком случае, он должен быть либо динамическим, либо заведомо такого размера, что все данные в него влезут.

В-третьих, в самом начале программы вы вводите значение i…
А что это за значение и к чему оно относится — непонятно!
Вы и сами его путаете: используете его как индекс массива и заодно как значение массива.
Это неверно.

Да и вообще, как говорил А.Македонский: „Разделяй и властвуй“
Поэтому необходимо разделить программу на логические блоки:

1. Ввод размера массива
2. Ввод значений исходного массива
3. Преобразование массива
4. Вывод новых значений массива

Исходя из этого можно составить программу:

Pascal

begin
  // Ввод размера массива и его создание
  var n := ReadInteger('Размер массива:');
  var a : array of Real;
  SetLength(a, n);
 
  // Ввод массива
  for var i := 1 to n do
    a[Pred(i)] := ReadInteger($'a[{i}] =');
    
  // Обработка массива
  for var i := 0 to n-1 do
    case sign(a[i]) of
      -1 : a[i] /= 2;
       0 : a[i] := 5;
      +1 : a[i] *= 3;
    end;
    
  // Выводим результат
  a.Println;
end.

@Sun Serega 2351 / 1454 / 526 Регистрация: 07.04.2017 Сообщений: 4,785
	25.10.2018, 00:35	2
	Индекс массив должен быть integer, про это вам и говорит компилятор. То есть у i должен быть тип integer. 0

	25.10.2018, 05:12