Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите с задачей
1. Ввести одномерный массив поэлементно с помощью клавиатуры или получить
его, используя генератор случайных чисел. Одномерный массив может быть
целочисленного или вещественного типа. Количество элементов в одномерном массиве
должна быть не менее десяти.
2. Вывести на экран монитора исходный одномерный массив в виде строки чисел.
3. Выполнить необходимые преобразования над исходным одномерным массивом,
а также выполнить необходимые вычисления.
4. Вывести на экран монитора преобразованный одномерный массив в виде строки
чисел, а также вывести результаты вычислений.
Задание :
в одномерном массиве все отрицательные элементы увеличить в пять раз , а все положительные уменьшить в два раза
1 | Автор: bogdanghost | 2013-11-16, 18:47   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2013-11-17, 12:48   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: