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

Надо а Паскале сделать.
Темой одномерной массива в Паскале ​


Надо а Паскале сделать. Темой одномерной массива в Паскале ​

Показать ответ
Ответ:
Aigerim800
Aigerim800
11.03.2021 16:19

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-бота