• Все сделать в Паскале. Дан массив из 12 элементов, в котором есть положительные и отрицательные чи сла (ноль тоже есть): а1=5, а2=4, а3=-3, а4=1, а5=0, а6=-4, а7=, а8=25, а9=-8, а10=-5, а11=-17, а12=-1. Составьте программу, в которой 1 вариант: Все отрицательные числа меняются на «1», все положительные на «-5», нулевые не трогаются. Вывести на экран исходный и полученный массив как в классе; Дополнительная оценка, если появляется дополнительная возможность ввода своих чисел с клавиатуры с клавиатуры.

Ответы 2

  • ну в паскале не идет
  • program mm;var a:array[1..12] of integer;beginfor i:=1 to 12 do beginа[1]:=5; а[2]:=4; а[3]:=-3; а[4]:=1; а[5]:=0;а[6]:=-4; а[7]:=(у тебя не написано); а[8]=25; а[9]=-8; a[10]=-5; а[11]=-17; а[12]=-1;end;writeln('Вот исходный массив');for i:=1 to 12 do writeln('A[',i,']=',a[i]); for i:=1 to 12 do beginif (A[i]<0) then a[i]:=1;if (a[i]>0) then a[i]:=-5;end;writeln('Вот полученный массив');for i:=1 to 12 do writeln('A[',i,']=',a[i]); writeln(' Введите 12 чисел');for i:=1 to 12 do readln(A[i]);          (это доп оценка)end.
    • Автор:

      foxy1fyq
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years