Задача на Паскале(нужно полное решение)
Задан массив случайным образом. Преобразовать его след. образом:
все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10
Задача на Паскале(нужно полное решение)
Задан массив случайным образом. Преобразовать его след. образом:
все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.