Как Удвоить все отрицательные нечётные числа в паскале ( Массив)
Ответы на вопрос
Ответил CrazyCoder
0
Ответил CrazyCoder
0
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.
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.
Ответил CrazyCoder
0
Вот так будет правильно
Ответил Olga1vanovna
0
в цикле УДВОЕНИЕ, а не возведение во вторую степень. Правильно в задаче a[i]:=a[i]*2
Ответил CrazyCoder
0
Поспешишь - людей насмешишь =(
Ответил Kesha12a
0
Решите лучше чуть ниже задачку. Я её написал под другой коментарий, пожалуйста. По вашим решениям всё равно что то не выходит
Ответил Olga1vanovna
0
если просто условие, то вот оно:
if (a[i]<0) AND (a[i] mod 2 =1) then a[i]:=a[i]*2
if (a[i]<0) AND (a[i] mod 2 =1) then a[i]:=a[i]*2
Приложения:
Ответил Kesha12a
0
Кхм что то не так.
не могли бы вы помочь с полнйо задачей?
Дано натуральное число N и последовательность целых чисел a1 a2 an заданные случайным образом из диапазона [-35;25]. Удвоить все отрицательные числа нечётные этой последовательности. Решить задачу для n=10
не могли бы вы помочь с полнйо задачей?
Дано натуральное число N и последовательность целых чисел a1 a2 an заданные случайным образом из диапазона [-35;25]. Удвоить все отрицательные числа нечётные этой последовательности. Решить задачу для n=10
Новые вопросы