Помогите пожалуйста....... Информатика Составить программу, которая формирует массив из 12 случайных целых чисел, принадлежит промежутку [ -20, 20 ], заменяет отрицательные числа на -1 и выводит значения элементов массива д...
Помогите пожалуйста.......
Информатика
Составить программу, которая формирует массив из 12 случайных целых чисел,
принадлежит промежутку [ -20, 20 ], заменяет отрицательные числа на -1 и выводит
значения элементов массива до и после замены. :-)
Гость
Ответ(ы) на вопрос:
Гостьvar
a: array [1..12] of integer;
i: integer;
begin
writeln('Начальный вид массива:');
for i := 1 to 12 do
begin
a[i] := -20 + random(41);
writeln('A[', i:2, ']=', a[i]:3);
end;
writeln('Конечный вид массива:');
for i := 1 to 12 do
begin
if a[i] < 0 then a[i] := -1;
writeln('A[', i:2, ']=', a[i]:3);
end;
readln
end.
Не нашли ответ?
Похожие вопросы