Ежедневно в течение октября измерялась температура воздуха в г. мурманске, а данные занесли в одномерный массива. определить, в какие дни наблюдалась самая низкая температура и какая. шаблон : program murmansk; var t: array[ ] of integer; begin for i: =1 to do begin t[i]: = ; writeln( ); end; for i: = to do if then ; writeln ('min=', min); for i: =1 to do if then ; end.
245
429
Ответы на вопрос:
Program murmansk; const n=31; var t: array[1..n] of integer; i,min: integer; begin randomize; for i: =1 to n do begin t[i]: =random(15)-10; write(t[i]: 4); end; writeln; min: =t[1]; for i: =2 to n do if t[i]< min then min: =t[i]; writeln ('min=', min); for i: =1 to n do if t[i]=min then write(i: 3); writeln; end. пример: -6 0 -5 1 -5 3 -6 -7 -3 -3 -3 0 -10 0 -6 -1 -8 -7 3 -10 2 2 2 -2 -10 1 1 3 2 -5 -4 min=-10 13 20 25
Б) перевод тэс с газа на мазут уменьшает количество вредных выбросов в атмосферу.
Популярно: Информатика
-
RAMINA190310.05.2022 10:48
-
2006лера28.10.2020 09:52
-
ElDiablo133710.01.2020 12:49
-
Girlverysilly09888727.09.2022 12:40
-
ivanovapolina8627.08.2022 05:28
-
жангул116.05.2023 18:16
-
pav926.02.2021 15:13
-
Viksalexa24.09.2022 13:57
-
FriskDreemurr107.08.2020 13:20
-
ratmir2rat30.10.2022 00:13