Пятница, 29 Марта 2024, 08:40

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Помогите и проверьте
Помогите и проверьте
archelichДата: Среда, 26 Ноября 2014, 14:05 | Сообщение # 1
некромант-самоучка
Сейчас нет на сайте
Выполните предложенный алгоритм для массивов А1 и А2 с индексами от 1 и до

37 и укажите сколько элементов массива А2 будут с отрицательными значениями после

выполнения алгоритма. Подробно распишите рассуждения и выкладки. Значения всех

элементов указывать не надо.
Код


for i:=1 tо 37 do

  A1[i] := 20 – i;  

for i:=1 tо 37 do  

  А2[i] := A1[i] + 19;


Здесь не будет ни одного отрицательного значения?
Alexan-DwerДата: Пятница, 22 Января 2016, 17:12 | Сообщение # 2
почетный гость
Сейчас нет на сайте
Массивы содержат убывающие (на единицу) последовательности: A1[1..37]= 19, ..., -17; массив A2[1..37]= 38, ..., 2. В A2 минимальный элемент равен "2", =>, в массиве A2 нет элементов, с отрицательными значениями smile
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Помогите и проверьте
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг