Решите ! в таблице dat хранятся данные о количестве учеников в классах (dat[1] – количество учеников в первом классе, dat[2] – во втором и т. определите, какое число будет напечатано в результате работы следующей программы. 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] < 25 then begin m : = m + 1 end; writeln(m) end.

здесь с цикла считаем, сколько чисел меньше 25.

dat[1] : = 20; // 1

dat[2] : = 25;

dat[3] : = 19; // 2

dat[4] : = 25;  

dat[5] : = 26;

dat[6] : = 22;   // 3

dat[7] : = 24; // 4

dat[8] : = 28;

dat[9] : = 26;

dat[10] : = 21;   // 5

dat[11] : = 27;

ответ: 5

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.