var k, m : integer;
Dat [1]:=12; Dat [2]:=15;
Dat [3]:=17; Dat [4]:=15;
Dat [5]:=14; Dat [6]:=12;
Dat [7]:=10; Dat [8]:=13;
Dat [9]:=14; Dat [10]:=15;
m:=0;
for k : = 1 to 10 do
if Dat [k]>12 then
begin
m:=Dat [k]
end;
writeln (m) ;
End.
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «var k, m : integer; Dat [1]:=12; Dat [2]:=15; Dat [3]:=17; Dat [4]:=15; Dat [5]:=14; Dat [6]:=12; Dat [7]:=10; Dat [8]:=13; Dat [9]:=14; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Var k, m, num: integer; Dat: array [1 ... 10] of integer; begin Dat[1]:=7; Dat[2]:=-8; Dat[3]:=3; Dat[4]:=6; Dat[5]:=-4; Dat[6]:=3; Dat[7]:=5; Dat[8]:=-5; Dat[9]:=7; Dat[10]:=1; num:=1; m:=Dat[1];
Ответы (1)
Var k, m, day: integer; Dat: array[1 ... 7] of integer; Begin Dat[1]:=7; Dat[2]:=9; Dat[3]:=10; Dat[4]:=8; Dat[5]:=6; Dat[6]:=7; Dat[7]:=6; day: = 1; m:=Dat[1]; for k:=2 to 7 do begin if Dat[k] < m then begin m:=Dat [k]; day:=k end end write (day) ;
Ответы (1)
Var k, m, day: integer; Dat: array[1 ... 10] of integer; Begin Dat[1] : = 2; Dat[2] : = 2; Dat[3] : = 3; Dat[4] : = 3; Dat[5] : = 2; Dat[6] : = 2; Dat[7] : = 5; Dat[8] : = 5; Dat[9] : = 6; Dat[10] : = 6; day:=1; m : = Dat[1];
Ответы (1)
Задать массив и решить Var k, m: integer; Dat: array[1 ... 11] of integer; Begin Dat[1] : = 20; Dat[2] : = 25; Dat[3] : = 19; Dat[4] : = 25; Dat[5] : = 26; Dat[6] : = 22; Dat[7] : = 24; Dat[8] : = 28; Dat[9] : = 26; Dat[10] : = 21; Dat[11] : = 27;
Ответы (1)
Var k, m: integer; Dat: array[1 ... 11] of integer; Begin Dat[1] : = 20; Dat[2] : = 25; Dat[3] : = 19; Dat[4] : = 25; Dat[5] : = 26; Dat[6] : = 22; Dat[7] : = 24; Dat[8] : = 28; Dat[9] : = 26; Dat[10] : = 21; Dat[11] : = 27; m : = 0;
Ответы (1)
Помогите с ответом
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Сколько четвёртых и сколько восьмых долей единицы в данном числе 1/2, 1 1/2,2 1/4,
Нет ответа
Данные имена существительные поставь форме множественного числа и запиши пары слов обозначь в словах ту часть которая изменяется при изменении слова по числам
Нет ответа
Яркий солнечный день. светит ... дует ... а вокруг ... Слова для составления предложения. Пушистая, молодая, зеленая, мягкая, сочная, как бархатная зеленеет, словно раскинулся ковер Желтые поговки, яркие фонарики огоньки, маленькие солнышки Растут,
Нет ответа