Примеры понятия, высказывания, умозаключения, доказательств из различных наук: , информатики , и
141
410
Ответы на вопрос:
Program day; var a: array[1..30] of integer; b, s, i, min: integer; begin min : = 999; randomize; for i : = 1 to 30 do begin a[i] : = random(9, -3); s : = s + a[i]; write(a[i]: 3); end; writeln; writeln('ниже нуля '); for i : = 1 to 30 do begin if a[i] > 0 then write(i,'-го '); end; if a[i] = 0 then b : = b + 1; writeln; for i : = 1 to 30 do if a[i] < min then min : = a[i]; writeln('самая низкая температура - ', min); writeln('средняя температура ноября ', s / 30); end.
Популярно: Информатика
-
esehediev25.04.2020 07:47
-
jova20011p0bpf910.10.2022 18:59
-
12251909.10.2021 16:03
-
julirim01311.11.2021 15:46
-
kiskammp014dd16.06.2022 15:09
-
Маргоритка200909.06.2020 12:03
-
vaxaxa171716.08.2020 20:35
-
dlyaigrmoih123.05.2020 01:59
-
SergeyPomoshnik03.04.2023 19:08
-
romanov110015.05.2022 04:46