Ответы на вопрос:
если массив состоит из 10 элементов то код программы:
const
n=10;
var
a: array[1..n] of integer;
i,min: integer;
begin
for i: =1 to n do read(a[i]); {вводишь заданный массив}
min: =32767;
for i: =1 to n do
if a[i]< min then min: =a[i];
write(min);
end;
Var s,i: integer; begin s: =0; for i: =10 to 99 do if (i mod 3 = 0) and (i mod 5 < > 0) then s: =s+i; writeln(s); end.
Популярно: Информатика
-
sxmax18.02.2023 16:20
-
8888щоолзлтлжд04.07.2021 21:47
-
volkovaales030812.03.2021 11:39
-
yekatmedwedicz20.12.2022 22:06
-
Hikary13411.12.2021 09:02
-
EvilVitaliy12.02.2023 18:58
-
qwertynikas15.04.2022 06:33
-
missisruso27.10.2022 21:23
-
Asker123121.06.2020 04:12
-
nura2006101.07.2022 23:19