Дано натуральне число n. Скласти програму обчислення значення виразу: 1/sin1+1/sin1+sin2+... +1/sin1+sin n. Результат округлими до сотих. Треба зробити в Pascal
140
339
Ответы на вопрос:
var
x : array [1..15] of integer;
i : integer;
min : integer;
kol_nol : integer;
begin
kol_nol : = 0;
for i: =1 to 15 do
begin
write ("введите элемент массива: ");
readln(x[i]);
end;
min : = x[1];
for i : = 0 to 15 do
begin
if (x[i] > 0) then
begin
if (x[i] < min) then
begin
min : = x[i];
end;
end;
if (x[i] = 0) then
begin
inc(kol_nol);
end;
writeln(min);
writeln(kol_nol);
end;
Популярно: Информатика
-
Sofiya1111111111111119.01.2023 14:56
-
ttttrrrrtttr10.12.2022 12:07
-
KekLol8901.04.2020 10:55
-
diiann17.06.2021 20:54
-
pika999977712.06.2021 02:13
-
oksanapolio15.11.2021 01:21
-
Мишаня172125.06.2022 21:00
-
нургалым125.02.2022 06:05
-
MrAmoral30.01.2021 02:23
-
mila33626.05.2023 04:01