Решить на паскале: найти количество нечетных элементов массива и уменьшить каждый элемент начального массива на это количество. начальный и преобразованный массивы отпечатать.
DeNiSNoNs
1
04.10.2019 11:30
3
Другие вопросы по теме Информатика
кирюха6677
03.12.2020 16:34
ritagribaleva
03.12.2020 16:35
aiperiwa
03.12.2020 16:36
Danielriisna13
21.09.2019 02:50
КирилБыков
21.09.2019 02:50
anjaps
21.09.2019 02:50
рол145
21.09.2019 03:00
Anastasia16666
22.08.2019 18:00
Популярные вопросы
- Два мотоцикла едут навстречу друг другу скорость одного мотоциклиста...
1 - Запишите с степени числа 10, что радиус (r) земли приближенно равен...
2 - Вдревние времена ученые называли продолговатый мозг «жизненным узлом»...
3 - Какую часть дециметра составляют 5 см...
3 - Найдите площадь фигуры заключенной между двумя окружностями с одним...
2 - При скрещивании растений, пораженных головнёй, растений овса с устойчивыми...
1 - Каким образовано наречие чуть-чуть...
1 - Чем отличается друг от друга однокоренные слова и формы одного и того...
2 - Вкаком слове ударение падает на тот же слог? что и у слова, изображенного...
3 - Лыжник спускается с горы за 14,1 с. за какое время он спустится с половины...
3
const n=10;
var a:array[1..n] of integer;
i,k: integer;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write (a[i]:3,' ');
if a[i] mod 2 <> 0 then k:=k+1
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]-k;
write (a[i]:3,' ')
end
end.