Вернуться Форум Bashtel.RU > Разное > Образование
Образование Большинство получает, некоторые передают и лишь немногие имеют

Ответ
 
Опции темы Опции просмотра

задачи(массивы)
Старый 07.04.2011, 16:13   #1
Пользователь
 
Аватар для Albert
 
Albert вне форума
Регистрация: 02.02.2009
Адрес: Салават
Сообщений: 146
Отправить сообщение для Albert с помощью ICQ Отправить сообщение для Albert с помощью Skype™
По умолчанию задачи(массивы)

Помогите пожалуйста решить задачи про массивы( в Паскале)
1. Задайте массив из 10 элементов с помощью датчика случайных чисел и поменяйте знак всем нечетным элементам массива на противоположенный. Выведите на экран исходный и измененый массивы.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. Все элементы, которые больше 55, замените максимальным. Выведите на экран исходный и измененый массивы.

Очень надо
__________________
продаю лазерную установку.

Последний раз редактировалось Albert; 07.04.2011 в 21:20..
  Ответить с цитированием
 

Старый 07.04.2011, 21:00   #2
Местный
 
Аватар для inferno[BoD]
 
inferno[BoD] вне форума
Регистрация: 21.04.2006
Адрес: Октябрьский
Сообщений: 383
Отправить сообщение для inferno[BoD] с помощью ICQ
По умолчанию

Как это из десятка случайных чисел? Random(10)? Если да то условие второй задачи то беж элемент массива= 55 никогда не произойдет.
1 задача:
{задаешь массив и переменную для счетчика}
Var
I: byte;
A: Array [1..10] of byte;
Begin
{присваиваешь всем элементам массива случайные значения от 0 до 9}
Writeln('старый массив:');
For i:=1 to 10 do begin
A[i]:=random(10);
{как выводить результат на pascal красиво я не знаю сам с этим разберись }
Writeln(a[i]);
End;
{каждый второй элемент массива *(-1) и опять же выводим}
Writeln('новый массив:');
For i:=1 to 5 do begin
I:=i*2;
A[i]:=a[i]*(-1);
Writeln(a[i-1]);
Writeln(a[i]);
End;
End.

Добавлено через 2 минуты
Если какие вопросы стучи в асю:240180300
__________________
Я к оптимизму, наконец, пришёл,
Не жалуюсь на свой удел, не ною,
Уверен, что всё будет хорошо,
Хоть и не скоро, да и не со мною.
Э.Севрус

Последний раз редактировалось inferno[BoD]; 07.04.2011 в 21:03.. Причина: Добавлено сообщение
  Ответить с цитированием
 
Ответ


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача по Си ArXanGel Образование 5 20.12.2009 19:49
Задачка по физике мотофанлюбитджагу Общение 18 12.12.2008 19:35
Диспетчер задач |Proxy| Вопрос - ответ 7 07.12.2008 12:26



Текущее время: 17:57. Часовой пояс GMT +3.


vBulletin skin developed by: eXtremepixels
Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd. Перевод: zCarot
top of page