1) определение 1 бита с точки зрения содержательного подхода 2) главная формула информатики. главное условие ее применимости
234
371
Ответы на вопрос:
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;
Популярно: Информатика
-
ruslanabbyasov200417.02.2020 05:23
-
alisha15sherban06.05.2023 19:21
-
Izijjkghkk04.07.2021 17:11
-
djdkdksDkskd18.12.2021 09:23
-
Timyr102017.12.2020 11:41
-
19Викушка18.08.2022 05:23
-
машазайка107.01.2021 00:52
-
jasulau29.10.2022 20:08
-
emphasisone02.04.2022 10:22
-
jokeaaaaff17.01.2023 00:30