Question

Как Удвоить все отрицательные нечётные числа в паскале ( Массив)

Answer 1

Вообщем решил данную проблему 

faa716d71b172873aad47e3a0edee1c0.pas

Answer 2

var a: array [1..10] of integer; // возьмем массив из 10 чисел
    i,x      :byte;
begin
  randomize;
  for i:=1 to 10 do //заполняем исходный массив случайными числами (до 10)
  begin
    a[i]:=random(10)-5;
    write (' ' ,a[i]);
  end;
  writeln ();
  for i:=1 to 10 do
  begin
        if (a[i] < 0) and (a[i] mod 2 <> 0 ) then
          a[i]:=a[i]*a[i];
          write ( ' ',a[i]);
  end;
end.

Answer 3

Вот так будет правильно

Answer 4

в цикле УДВОЕНИЕ, а не возведение во вторую степень. Правильно в задаче   a[i]:=a[i]*2

Answer 5

Поспешишь - людей насмешишь =(

Answer 6

Решите лучше чуть ниже задачку. Я её написал под другой коментарий, пожалуйста. По вашим решениям всё равно что то не выходит

Answer 7

если просто условие, то вот оно:
if (a[i]<0) AND (a[i] mod 2 =1) then a[i]:=a[i]*2

faa716d71b172873aad47e3a0edee1c0.pas

Answer 8

Кхм что то не так.
не могли бы вы помочь с полнйо задачей?
Дано натуральное число N и последовательность целых чисел a1 a2 an заданные случайным образом из диапазона [-35;25]. Удвоить все отрицательные числа нечётные этой последовательности. Решить задачу для n=10