Нужна помощь в Pascal

[Demo65]

Уважаемые, не разу не обращался к вам за такой помощью, плакаться не буду, но у дочери скоро сессия. "Уроки" приходиться делать всей семьёй, жена -математика, я ...кое в чём, остальное - дочь(работает и времени почти нет).
Если есть возможность, помогите в таком вопросе:
2. Напишете программу на языке Pascal, которая в массиве из 25 элементов все отрицательные элементы делает положительными. Массив должен заполняться случайными значениями в интервале от -50 до 50

[maxim1966]

Demo65, Я думал эта тема уже не актуальна

[Demo65]

Demo65, Я думал эта тема уже не актуальна

В смысле? Объясните, я в программировании - как "лошадь у телефона"! Может дочь поймет!

[Yurkin2014]

Ну, вот так

program Demo65;
var i:integer;
    arr:array[0..24] of integer;
    
begin
    Randomize();
    for i:=0 to 24 do 
          arr[i]:=Round(50-Random(100));

    for i:=0 to 24 do 
          if(arr[i]‹0)then arr[i]:=-arr[i];
end. 

[Demo65]

Вы не поймите неправильно, я противник всего этого, Но сейчас НАДО!

[baiderin]

А сразу взять по модулю?

[Demo65]

А сразу взять по модулю?

может есть лучшее решение? Пожалуйста.

[Demo65]

Когда то , когда купил свой первый комп(может кто помнит) Вектор-06, пытался в Бейсике программировать, получалось картинки рисовать, далее не пошло. Не учили нас этому. не было у нас такого. Да и школу я уже давно закончил. А жаль, так хочется иметь знание и понимание языка программирования. Хотя бы, Бейсика.

[John_p]

Если есть возможность, помогите в таком вопросе:

Да не вопрос, поможем. Turbo Pascal? Под DOS?

[John_p]

А чем вас не устраивает решение от Yurkin2014? Или вывод на экран сделать?