Задать вопрос
ИнформатикаИнформатика
30 марта, 14:51

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

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. 30 марта, 15:57
    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: 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;
Регистрация Забыл пароль