tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан массив a(m), m ≤
Дан массив a(m), m ≤ 20.найти сумму s его положительных элементов. все отрицательные элементы удвоить. вывести на печать исходный массив, переформированный массив и число s.
tatianadettcel
3 25.05.2019 23:30
1
Ответы
petukhova05
22.06.2020 07:32
For i:=1 to m do
begin
if (-a[m]<>a[m]) then s:=s+1;
else a[m]:=a[m]*2;
writeln(a[m],' ');
end;
writeln(s);
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
НекоТянка6a
08.05.2020 18:47
Моє особисте ставлення до професії хореографа...
AIDA902231
08.05.2020 18:48
Каков формат процедур, записанных на языке исполнителей Кенгуренок и Муравей? Как вызываются эти процедуры?...
GNOMIK2278
25.12.2020 05:29
Проведите пример взаимодействия системы и среды...
didrov1843
03.03.2019 21:47
Ятупой определить корни данного уравнения с точностью до 5 знака после запятой. 4(cosx)^2-x2-x+1=0...
rona3
19.01.2021 19:20
производится одноканальная моно звукозапись с 24 битным разрешением запись длится 1 минуту 4 секунды её результаты записываются в файл сжатие данных не производится получен файл...
lllaasaw
19.01.2021 19:20
Составьте сами диаграмму Венны на слова Источник и Приёмник...
Masha134689
19.01.2021 19:20
Хто напиши 3 програми скину 30 грн на приват24...
оуоуо
19.01.2021 19:20
Під час розміщення компонентів на формі автоматично створюється відповідний фрагмент програми мовою...
alinnnkaaa
19.01.2021 19:21
какие компоненты и программы относятся к системному меню? дать им характеристику. привести примеры названия программ...
кирюха6677
25.10.2020 06:47
1. What role do books play in your life? 2. When do you meet with books? 3. What do books give a person, help him in? 4. What do books develop in a person? 5. What classes can...
Популярные вопросы
Движение тела описывается уравнением x=400-20t+2t². Найти импульс тела через...
1
От восторга и от тревоги ёкало сердце, и, хотя никто не знал, во что выльется...
2
перевести текст по французскому ...
3
напишите на листочке ! Таблиця володарі галицько Волинської держави...
2
5. Ойталқыдағы пікірлеріңнен 7-8 сөйлем жазыңдар. Сөйлем соңына қабаттасып...
3
Match the ways of cooking with the definitions...
2
4.Какой город Европы в XVIII веке был центром музыкальной культуры? ОТВЕТЬТЕ...
1
Заимствованные слова, фразеологизмы. Привести форму...
2
Знайты координаты вектора p=0,5а+3b якщо а(-8;4;1), b(-2;4;0,5)...
3
Які техніки живопису були притаманні Давньому Риму...
3
begin
if (-a[m]<>a[m]) then s:=s+1;
else a[m]:=a[m]*2;
writeln(a[m],' ');
end;
writeln(s);