• Задан массив целых чисел изт10 элементов. Положительные элементы заменить единицами,отрицательные нулями

Ответы 5

  • А норм написать можешь?
    • Автор:

      ziontdbc
    • 6 лет назад
    • 0
  • Это как?
  • Чтобы скопировать и сразу в Паскаль
  • Так для этого надо было писать на Паскале.
    • Автор:

      friday
    • 6 лет назад
    • 0
  • // Программа и скриншот ее работы в приложениях.const    T_max=10;var       i:byte;    T:array[1..T_max]of integer;    begin  writeln('Заполнение массива из ', T_max ,' элементов случайными данными');    //начальные значения min и max  for i:=1 to T_max do begin    T[i]:=random(-79,79);// диапазон случайных чисел    write(T[i]:6);        if (T[i]<0) then       T[i]:=0    else if (T[i]>0) then       T[i]:=1;  end;  writeln();    writeln();  writeln('Положительные элементы заменить единицами,отрицательные нулями ');  writeln('Результат');    for i:=1 to T_max do     write(T[i]:6);  end.
    answer img
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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