Задать вопрос
ИнформатикаИнформатика
26 декабря, 06:32

Задать массив и решить

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;

for k : = 1 to 11 do

if Dat[k] > 22 then

begin

m : = m + 1

end;

writeln (m)

End.

+2
Ответы (1)
  1. 26 декабря, 08:58
    0
    Var k, m: integer; Dat: array[1 ... 11] of integer;

    Beginfor k : = 1 to 11 do begin

    Dat[k]: = random (20) + 10;

    write (Dat[k]:4) ;

    if Dat[k] > 22 then m : = m + 1;

    end;

    writeln; writeln (m) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задать массив и решить Var k, m: integer; Dat: array[1 ... 11] of integer; Begin Dat[1] : = 20; Dat[2] : = 25; Dat[3] : = 19; Dat[4] : = ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
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: 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)
Объясните, почему он выводит 21, а не 19? Var k, m: integer; Dat: array[1 ... 11] of integer; Begin Dat[1]: = 20; Dat[2]: = 27; Dat[3]: = 19; Dat[4]: = 28; Dat[5]: = 26; Dat[6]: = 22; Dat[7]: = 24; Dat[8]: = 28; Dat[9]: = 26; Dat[10]: = 21;
Ответы (1)
Задания 10 по огэ по информатике 2017 Var k, m: 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;
Ответы (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;
Регистрация Забыл пароль