tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан массив целых чисел, состоящий
Дан массив целых чисел, состоящий из 13 элементов. заполнить его с клавиатуры.найти сумму отрицательных элементов массива. с оператора repeat.
alieksandra10981
3 20.09.2019 16:30
0
Ответы
RedKar
08.10.2020 04:59
Var A:array[1..13] of integer;
i,S:integer;
begin
for i:=1 to 13 do begin
Write('A[',i,']='); Readln(a[i]);
end;
i:=1
repat
if a[i]<0 then S:=S+a[i];
i:=i+1;
until i<=0;
Writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nastusya1709
08.12.2020 12:41
Какие наушники для xbox series x выбрать...
света1094
08.12.2020 12:41
чтоб сохранить рисунок в графическом редакторе Paint можно использовать сочетания клавиш каких . кто ответит не знаю забаню...
Topxic
08.12.2020 12:41
Информатика информатикааа...
name64
08.12.2020 12:41
Чему равна длина строки следующего кода print(len( I love Python! )) А) 12 Б) 13 В) 14 Г) 15...
lexazykov20014
08.12.2020 12:40
Сор за 2 четверть Информатика Таблица содержит данные об изменении курса доллара. Определите тип данных заголовка таблицы, датыи стоимости.ДатаИзменение курса доллара25.06.2017...
RRE1
18.05.2021 15:12
Как осуществляется поиск в тексте...
ivankornev00
13.11.2021 06:55
учитель хочет, чтобы ученики сели в возрастающем порядке. за первым столом сидел ученик табличкой 1, а за последним с табличкой 7. в начале урока за первым столом сидит бобёр...
Fromsay
28.09.2019 11:40
Сочинение на тему отношение множеств....
paperghost
28.09.2019 11:40
Вопрос на 15 ! что можно делать в кабинете информатики?...
mashabest19861
04.08.2019 19:00
Какое значение примет переменная а после выполнения следующего фрагмента алгоритма? на начальное значение а: =2. а: =а; если а 10 то a: =a/2 иначе a: =a*2 конец ветвления a:...
Популярные вопросы
Напиши напиши чудесного в повести ночь перед рождеством ...
3
Do you know the motto of the Olympic games?...
3
1. Из характерных признаков живого вирусу присущи: * самостоятельный обмен...
2
Осымдык жайлы 4 жол такпак...
3
Дайте ответ көмектесіңдерші өтінем...
3
Найдите значение выражения. 63*(-64)*(-65)*66*(-67):67:(-66):65:(-64)...
1
(x²-3x)(4x+2) =0рациональные неравенства)...
2
Баламалы энергетика көздерін көрсетіңіз * шам, жарық, балауызтеңіз, күн,...
3
Решите задачу по химии m вещества - 21 г CO2- 3,36 л H2O-27г Cx Hy O z(зачеркнутая...
1
4 Есептеп, тексеруді орында, 252 : 14897 3952 22145 1560000,27120022:12731...
2
i,S:integer;
begin
for i:=1 to 13 do begin
Write('A[',i,']='); Readln(a[i]);
end;
i:=1
repat
if a[i]<0 then S:=S+a[i];
i:=i+1;
until i<=0;
Writeln(s);
end.