Ответы на вопрос:
program xxx;
var i, n : integer
d : array[1..30] of real;
begin
write ('введите разметность массива n=');
readln(n);
writeln(''введите элементы массива d: ');
for i: =1 to n do
readln(d[i]);
writeln ('исходный массив d: ');
for i: =1 to n do
write(d[i]);
for i: =1 to n do
if d[i] mod 3 = 0 then d[i]: = 2 * d[i];
writeln ('полученный массив d: ');
for i: =1 to n do
write(d[i]);
readln
end.
Популярно: Информатика
-
guara315.10.2022 22:46
-
девочкаксюша24.02.2022 04:13
-
Perfekto8617.01.2020 12:52
-
Elenka927214.03.2021 08:54
-
Bakc111.04.2020 13:38
-
5120182609.01.2023 04:24
-
ПростоФедя27.05.2020 18:13
-
Ivanov11kk2216.04.2021 18:40
-
polina20041202.01.2023 09:38
-
dima110727.03.2020 17:27