В массиве нужно положительные элементы умножить на k, а отрицательные разделить на 2

@Smiley · Регистрация: 24.11.2014

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

Вобщем в массиве нужно положительные элементы умножить на k, а отрицательные разделить на 2. И при этом посчитать кол-во элементов абс. величина которых не превышает l. Ну и с процедурой обязательно.

Ошибка нельзя обратиться к свойству index через тип.

Pascal

const N=5;
type A=array[1..N] of real;
var i,k,l:integer;
 
Procedure srav(A:array of real; var i:integer);
begin
for i:=1 to N do
if A[i]>=0 then
            A[i]:=A[i]*k
            else
            A[i]:=A[i]/2;
end;
 
begin
writeln ('Vvedite k i l');
readln (k,l);
   for i:=1 to N do
      begin
      writeln ('A[',i,']=');
      readln (A[i]);
      end;
         for i:=1 to N do
         srav(A,i);
k:=0;
            for i:=1 to N do
              begin
              if abs(A[i])<l then
              k:=k+1;
              end;
writeln (A[i]);
writeln ('Koli4estvo elementov < l = ',k);
end.

@ZX Spectrum-128 · 26.12.2014, 13:17

Pascal

const
  N=5;
type
  Arr=array[1..N] of real;
var
  i,k,l:integer;
  a:arr;
 
Procedure srav(var A:arr);
begin
  for i:=1 to N do
    if A[i]>=0 then
      A[i]:=A[i]*k
    else
      A[i]:=A[i]/2;
end;
 
begin
  write('Введите К и L:');
  readln (k,l);
  for i:=1 to N do
    begin
      writeln ('A[',i,']=');
      readln (A[i]);
    end;
  writeln('Исходный массив: ');
  for i:=1 to N do
    write(a[i]:8:2);
  writeln;
  srav(A);
  writeln('Преобразованный массив: ');
  for i:=1 to N do
    write(a[i]:8:2);
  k:=0;
  for i:=1 to N do
    begin
      if abs(A[i])<l then
        k:=k+1;
    end;
  writeln ('Koli4estvo elementov < l = ',k);
  readln;
end.

	26.12.2014, 13:17