1. Ввести одномерный массив поэлементно с помощью клавиатуры или получить
его, используя генератор случайных чисел. Одномерный массив может быть
целочисленного или вещественного типа. Количество элементов в одномерном массиве
должна быть не менее десяти.
2. Вывести на экран монитора исходный одномерный массив в виде строки чисел.
3. Выполнить необходимые преобразования над исходным одномерным массивом,
а также выполнить необходимые вычисления.
4. Вывести на экран монитора преобразованный одномерный массив в виде строки
чисел, а также вывести результаты вычислений.
Задание :
в одномерном массиве все отрицательные элементы увеличить в пять раз , а все положительные уменьшить в два раза
|
|
|
|
const
n=10;
var
a:array[1..n]of integer;
i:byte;
begin
randomize();
for i:=1 to n do begin
a:=random(100);
write(a,' ');end;
for i:=1 to n do begin
if (a < 0) then a:=a*5 else a:=a/2;
write(a,' ');end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
