Можно ли установить iso образ ОС на виртуальную машину, при этом не записывая iso образ на флешку или диск
107
490
Ответы на вопрос:
const
n = 15;
var
i, k: integer;
p: real;
x: array[1..n] of real;
begin
k := 0;
p := 1;
writeln('Введите ', n, ' элементов массива: ');
for i := 1 to n do
begin
readln(x[i]);
if (x[i] <> 0) and (x[i] > 5) then
begin
p := p * x[i];
inc(k);
end;
end;
if k = 0 then
writeln('Нет искомых элементов в массиве')
else
writeln('Количество искомых элементов: ', k, '; их произведение = ', p:0:3);
end.
Объяснение:
Популярно: Информатика
-
kristpan2004p0c22v09.08.2022 11:26
-
kirill2006072908.01.2023 03:19
-
azizka404.06.2023 05:26
-
Lelechk23.06.2021 10:33
-
milana569718.02.2023 07:22
-
Algazino09.03.2020 01:54
-
петя21219.01.2020 07:37
-
bulkin1201.03.2022 23:53
-
итлиори18.05.2020 06:08
-
ksushakorovina102.11.2022 07:28