Помоги пожалуйста с задачей по паскалю в массиве из 15 случайных целых чисел на интервале[10;100] произвести преобразование:"Числа которые меньше нуля, сделать положительными", "числа которые больше нуля, сделать отрицательными", а "числа которые равны 0, заменить квадратом индексом"Заранее спасибо))

1
"15 случайных целых чисел на интервале[10;100]" Может от 10 до 100 по модулю? Иначе откуда взяться числам меньше 0. И даже есть [-100..-10]&&[10..100] нуль входить не будет.
Нет,.. так часто обозначают множества, а квадр. - включительно!
Да множество от 10 до 100, но по условию должны встречаться отрицательные элементы и нули. Иначе будет выполняться только 1 из 3 условий на каждой итерации. смысл задавать такие задачи?
Препод "рулит"!))) Он больше на рэндоме зациклился по-ходу!)))

Ответы и объяснения

2013-11-28T12:40:08+04:00
Var
i:integer;
a: array[1..15] of integer;
begin   
randomize;   
Writeln('Исходный массив');   
for i := 1 to 15 do begin       
a[i] := random (91) + 10;       
write (a[i]:5)   
end;   
for i := 1 to 15 do
 begin       
if a[i] = 0 then         
 a[i] := i*i       
 else       
 a[i] :=a[i]*(-1);       
 end;   
Writeln;   
Writeln('Результирующий массив');   
for i := 1 to 15 do       
 write (a[i]:5);
readln
end.


Последнее условие можно было не проверять - до него не дойдет из условия [10;100]