Составить программу которая выводит на экран утроенное значение всех чисел
265
482
Ответы на вопрос:
для pascal
program utroennoe;
var i: longint;
begin
read(i);
writeln(i*3);
end.
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
write(' исходный массив: ');
for i: =1 to n do
begin
a[i]: =random(9)+1;
write (a[i]: 4,' ')
end;
writeln;
write('преобразованый массив: ');
for i: =1 to n do
begin
if (a[i] = 5) then a[i]: =1000;
write (a[i]: 4,' ')
end
end.
Популярно: Информатика
-
Дарья000718.11.2021 08:35
-
ryslan322225.02.2022 01:29
-
JlU40K23.03.2020 19:37
-
MrLeysanHD05.10.2021 01:53
-
BlackZhopa07.01.2020 05:59
-
PolinaCartonova27.12.2022 15:49
-
nikitaursu1121.04.2023 17:36
-
Yulia2708201728.06.2023 02:22
-
ян603.06.2023 22:01
-
bodiafan21.03.2023 18:50