Вопрос по информатике:
Ежедневно в течение октября измерялась температура воздуха в г. Мурманске, а
данные занесли в одномерный массива. Определить, в какие дни наблюдалась самая низкая температура и какая.
Шаблон задания:
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.
- 15.09.2015 20:17
- Информатика
- remove_red_eye 16122
- thumb_up 17
Ответы и объяснения 1
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]
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
- 16.09.2015 14:15
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.