Информатика: Положительные элементы заменить на 1, а отрицательные на - 1

Положительные элементы заменить на 1, а отрицательные на - 1

Показать ответ

Ответ:

YolloYP

07.10.2020 06:34

Var a: array [1..30] of integer;
begin
for var i:=1 to 30 do
begin
a[i]:=random(-30,30);
end;
println(a);
for var i:=1 to 30 do
begin
if (a[i]>0) then
a[i]:=1
else
a[i]:=-1;
end;
print(a);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

кйф5

15.03.2022 12:05

Решить в паскале одна из основных операций с числами – их сравнение. мы подозреваем, что вы в совершенстве владеете этой операцией и можете сравнивать любые числа, в том числе и...

lolopoo

05.12.2020 19:58

Обрый день пож-та составить приложение в среде Delphi, рассчитывающую функцию y(x) в зависимости от введенного параметра А. Программа должна содержать: 1. Оператор выбора Case .....

leha2018

09.06.2023 21:49

13:3*. Напиши на языке программирования следующие математичен ские выражения.а + 4b - 4ху +уt(5х - с)Jх? - 5Зу(5х +(4a+bt)-2)34 x+5+1 а? +b2 + c2 - 2ab 2ись...

Вика1609000

07.01.2023 12:46

НАПИСАТЬ ПРОГРАММУ ДЛЯ PASCAL! [ за спам бан] Используя цикл с ПОСТ-УСЛОВИЕМ решить задачу : найти произведение четных чисел от 10 до 0...

gireeva00

10.03.2020 05:10

По древней легенде мудрец, придумавший шахматы потребовал у персидского шаха такое вознаграждение: пусть на шахматную доску кладут зёрна: на 1-ую 1 зерно, на 2-ую - 2 зерна, на...

KolianN

28.10.2021 07:26

Вкаком случае сообщение содержит информацию для человека? а)если сведения на языке б) если сведения доказаны наукой в)если сведения новые для человека г)если сведения являются новыми...

Adzhisay

28.10.2021 07:26

Дано файл зображення 7,4 мб, що знаходиться в інтернеті. швидкість інтернет з єднання становить 2,4 мбіт/с. визначити час за який це зображення може бути завантажене на комп ютер....

onpapion

09.01.2023 04:19

написать небольшие программки на Python e, буду очень благодарен. Сам к сожалению не силён в этом, но делать надо. 1. Сложить две строкирезультат два раза продублироватьвычислить...

jillikati

30.08.2021 06:45

Укажи тип компьютера, который выполнить школьные задания: написание эссе, создание простейшего ролика о себе, редактирование презентации выступления на школьном мероприятии. Выбери...

elendadgs

02.04.2023 21:19

Если температура жидкости больше чем у первой в 2,5 раза, а её теплоёмкость больше чем у первой в 2 раза. Чему будет равна установившаяся температура смеси?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку