Задача на Паскале(нужно полное решение)
Задан массив случайным образом. Преобразовать его след. образом:
все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10
var A: array [1..100] of integer;
i: integer;
begin
randomize;
for i := 1 to 100 do begin
A[i] := random(200) - 100;
end;
for i := 1 to 100 do begin
if (A[i] < 0) then A[i] := Abs(A[i]);
else if (A[i] > 0) A[i] := A[i] * 2;
else A[i] = 10;
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
