Задать массив и решить Var k, m: integer; Dat: array[1..11] of integer; Begin Dat[1] :=...

Question

Задать массив и решить
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.

Answer 1

// PascalABC.NET 3.0, сборка 1088
const
  Dat:array[1..11] of integer=(20,25,19,25,26,22,24,28,26,21,27);
var
  k,m:integer;
begin
  m:=0;
  for k:=1 to 11 do
  if Dat[k]>22 then Inc(m);
  Writeln(m)
end.

Тестовое решение:
7

А вот так можно написать программу, если знать немного больше, чем дают в школе:

// PascalABC.NET 3.0, сборка 1088
begin
  var Dat:array[1..11] of integer:=(20,25,19,25,26,22,24,28,26,21,27);
  Writeln(Dat.Where(x->x>22).Count)
end.

Но ведь в школе не ищут простых решений! (((

Answer 2

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.