Создать массив b 7 элементов в интервале от 0 до 10 , заменить все элементы кратные 3 на сумму элементов массива.
vlerut1
2
19.03.2019 03:50
0
Другие вопросы по теме Информатика
skromnikplay
23.04.2020 17:18
198206nh
23.04.2020 17:18
гуля429
23.04.2020 17:18
lsodh
12.09.2019 21:29
katyalychenko
15.05.2019 21:58
tanyaraeva2017
21.02.2021 09:25
darvin1145
21.02.2021 09:11
Yorfound
21.02.2021 09:00
Популярные вопросы
- Нужна . Вознаграждение присутствует!...
3 - Лёгкая атлетика найдите 6 терминов имеющие отношение к лёгкой атлетике...
3 - Кто граничит с Россией по суше и в акватории чёрного моря?...
3 - Тело движется по окружности радиусом 3 м со скоростью 14π м/с. Чему равна...
1 - решить желательно решать с рисунками...
1 - 6. Миржакип Дулатов написал стихотворение, посвященное своему народу: О...
2 - Даны три угла: ∠α, ∠β, ∠γ, где ∠α = 3° 27 , ∠α = ∠β, ∠β = ∠γ. Чему равна...
1 - решить вторую задачу,методом Кирхгофа...
2 - 6 A girl is riding a bicycle at a constant velocity of 3.0ms-1 along a...
2 - Напишите текст на английском про город Воронеж, что то похожее на текст...
1
var a:array[1..7]of integer;
i,s:integer;
begin
for i:=1 to 7 do begin a[i]:=random(9)+1; s:=s+a[i]; end;
for i:=1 to 7 do write(a[i],' ');
writeln;
for i:=1 to 7 do if a[i] mod 3=0 then a[i]:=s;
for i:=1 to 7 do write(a[i],' ');
end.