Дан массив X(N).найти наименьший элемент если он отрицательный, заменить все элементы массива на их модули
Дан массив X(N).найти наименьший элемент если он отрицательный, заменить все элементы массива на их модули
Гость
Ответ(ы) на вопрос:
Гость1. Современная версия программы
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var n:=ReadInteger('n=');
var x:=ArrRandom(n,-5,20); x.Println;
if x.Min<0 then x:=x.Select(e->abs(e)).ToArray;
x.Println
end.
Тестовое решение
n= 15
14 18 4 17 9 6 13 13 12 -1 13 5 11 -2 14
14 18 4 17 9 6 13 13 12 1 13 5 11 2 14
2. Школьная версия программы
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
nn=50;
var
x:array[1..nn] of integer;
i,m,n:integer;
begin
Write('n= '); Read(n);
Randomize;
x[1]:=Random(26)-5; m:=x[1];
Write(x[1],' ');
for i:=2 to n do begin
x[i]:=Random(26)-5;
if x[i]
Не нашли ответ?
Похожие вопросы