В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
albinka2017
albinka2017
03.11.2020 18:23 •  Информатика

В файл Input.txt вводиться два цілих числа. Якщо добуток чисел перевищуєїх суму, надрукувати добуток чисел, у протилежному випадку -вивести їх суму. Якщо добуток дорівнює сумі , вивести різницю чисел . Виведення здійснити в файл Output.txt.

Показать ответ
Ответ:
delsinroujob
delsinroujob
31.01.2022 16:24

Объяснение:

Компью́терная гра́фика — область деятельности, в которой компьютеры наряду со специальным программным обеспечением используются в качестве инструмента как для создания и редактирования изображений, так и для оцифровки визуальной информации, полученной из реального мира, с целью дальнейшей её обработки и хранения.

Применяется компьютерная графика во многих областях, так как цифровая графика, лазерная графика, цифровая живопись и фотография, практично всегда ее используют в фильмах, а также при создании компьютерных игр.

0,0(0 оценок)
Ответ:
Aigerim800
Aigerim800
24.10.2021 20:42

program z1;

var a:array [1..10] of integer;

i,sp,so:integer;

begin

randomize;

sp:=0;

so:=0;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(41)-20;

if a[i] > 0 then sp:=sp+a[i]

else so:=so+a[i];

write(a[i],'  ')

end;

writeln;

writeln('Сумма положительных элементов: ',sp);

writeln('Сумма отрицательных элементов: ',so)

end.

Объяснение:

Задаём элементы массива через random

Если элемент больше 0, то считаем сумму положительных элементов, в противном случае считаем сумму отрицательных элементов (0 на сумму не влияют)

Выводим значение элемента на экран

Выводим суммы

Если 0 очень важны, то меняем строки:

if a[i] > 0 then sp:=sp+a[i]

else so:=so+a[i];

на:

if a[i] > 0 then sp:=sp+a[i];

if a[i] < 0 then so:=so+a[i];

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота