Вмассиве из 10 положительных целых чисел первый элемент заменить суммой всех четных элементов массива.
ботаник041
2
06.12.2019 14:03
0
Другие вопросы по теме Информатика
nocitronum
21.03.2019 20:25
LisenokHan
21.03.2019 20:24
Викуша0402
05.05.2020 15:19
Madwoman17
27.07.2019 20:00
даша3901
27.07.2019 20:00
aadiiii1
22.11.2019 00:06
noname0002
11.06.2019 23:20
97shadesofblue
11.06.2019 23:20
Александра142000
11.06.2019 23:20
Популярные вопросы
- Как называется лестница , по которой поднимаются на борт теплохода? 19...
2 - Втреугольнике abc угол a=10 градусов . биссектрисы cc u bb пересекаются...
3 - Катя получила письмо от татьяны васильевны, от дяди коли, от тёти вали....
1 - Можете заменить повторяющиеся имена существительные прилагательные в морях...
3 - Решить неравенство: 3(x+1) = x+5...
3 - Придумай и запиши два предложения: первое с именем существительный часовой,...
3 - Одна бригада рабочих может заасфальтировать 15 км шоссейной дороги за...
2 - За что борис постернак получил нобелевскую премию...
1 - Олеся купила на рынке орехи. олеся разложила все орехи по три - осталось...
1 - Вычеслить массу осадка которая образуется при взаимодействии 10 % раствора...
3
var a: array[1..10] of integer;
i,sum: integer;
begin
sum:=0;
writeln('введите массив:');
for i:=1 to 10 do begin
readln(a[i]);
if a[i] mod 2=0 then sum:=sum+a[i];
end;
a[1]:=sum;
write('полученный массив: ');
for i:=1 to 10 do write(a[i],' ');
end.