Феодосий 27 октября 2019 в 12:37
Дан массив A [1 .. 20] целого типа .составить программу замены отрицательных элементов на 0, положительных на 1
Дан массив A [1 .. 20] целого типа .составить программу замены отрицательных элементов на 0, положительных на 1
//Создаем переменные
var A: array[1..20] of integer;
i: integer;
begin
//Записываем рандомные значения в массив A
for i := 1 to 20 do
A[i] := random(-10, 10); //Указываем границы рандома (от -10 до +10 в данном случае)
//Проверяем числа массива
for i := 1 to 20 do
begin
if A[i] lt; 0 then A[i] := 0
else A[i] := 1;
end;
{writeln(A);}
end.
var A: array[1..20] of integer;
i: integer;
begin
//Записываем рандомные значения в массив A
for i := 1 to 20 do
A[i] := random(-10, 10); //Указываем границы рандома (от -10 до +10 в данном случае)
//Проверяем числа массива
for i := 1 to 20 do
begin
if A[i] lt; 0 then A[i] := 0
else A[i] := 1;
end;
{writeln(A);}
end.
Компьютеры и вычисления
297
75
Для комментирования необходимо зарегистрироваться на сайте