Размещено 5 лет назад по предмету Информатика от анджелаaнджелика

Задайте массив из 10 элементов с помощью датчика случайных чисел в интервале от -10 до 50. Замените отрицательные элементы их модулями. Выведите на экран исходный и измененный массивы.

Ответ на вопрос

Ответ на вопрос дан elenaklon

var
a:array [1..10] of integer;
i:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(-10,50);
writeln('Исходный массив ',a);
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln('Изменённый массив ',a)
end.

Пример:
Исходный массив [49,16,32,-1,39,42,-8,-10,10,4]
Изменённый массив [49,16,32,1,39,42,8,10,10,4]
1. Ответ на вопрос
  
  Ответ на вопрос дан анджелаaнджелика
  
  Исходный массивarina.$pascal_arrayl
2. Ответ на вопрос
  
  Ответ на вопрос дан анджелаaнджелика
  
  Вот это выдает
3. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Не знаете, так посмотрите версию в Справке
4. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Если программа в окне работает, на рамке онкна что написано?
5. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  *окна
Ответ на вопрос

Ответ на вопрос дан Аккаунт удален

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,-10,50); a.Println;
a.Transform(t->t<0?-t:t); a.Println
end.

Пример
4 -6 26 -5 14 17 17 47 -9 26
4 6 26 5 14 17 17 47 9 26
1. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  "Внимание! Если программа не работает, обновите версию!"
2. Ответ на вопрос
  
  Ответ на вопрос дан анджелаaнджелика
  
  Как решить без обновления
3. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  А какая версия у Вас?
4. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Для начала, вообще-то, запускайте в какой есть, если, конечно, это PascalABC.NET
5. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  А если у Вас какой-то другой Паскаль - это уже Ваша проблема: в вопросе не была указана версия Паскаля.