2. Запишите значения элементов массива, сформированного следующим образом: For i:=1 to 11 do a [i] :=i*i+ 3; Var k, m: integer; Dat: array [1..10] of integer; 3. В таблицe Dat хранятся данные Begin измерений среднесуточной Dat [1]:= 12; Dat [2] := 15; температуры за 10 дней в градусах Dat [3] = 17; Dat [4]:= 15; (Dat [1] — данные за первый день, Dat [5]= 14; Dat [6] := 12; Dat [2] за второй и т.д. Dat [7]:= 10; Dat [8] := 13; Определите какую задачу решает Dat [9] := 14; Dat [10] := 15; программа. Что будет выведено на m:= 0; экран После Выполнения for k:=1 to 10 do программы? if Dat [k]=15 then m:=m+ 1; writeln (m); End. .

1.

unit Unit2;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Spin;

const

 n = 4;

type

 TFormT = class(TForm)

   Button1: TButton;

   Memo1: TMemo;

   Label1: TLabel;

   procedure Button1Click(Sender: TObject);

 private

   b: array[0..n-1, 0..n-1] of integer;

   procedure FillArray;

 public

 end;

var

 FormT: TFormT;

implementation

{$R *.dfm}

{ TForm2 }

procedure TFormT.Button1Click(Sender: TObject);

begin

 memo1.Clear;

 Label1.Caption := '';

 FillArray;

end;

procedure TFormT.FillArray;

var

 i, j, S : Integer;

 P : Longint;

 st : string;

begin

 randomize;

 P:=1;

 S:=0;

 for i:=0 to n-1 do begin

   st:='';

   for j:=0 to n-1 do begin

     b[i, j]:= 1+ Random(10);

     st := st + format('%2d ',[b[i, j]]);

     if b[i, j] mod 2 <> 0 then begin

       P := P * b[i, j];

       S := S + b[i, j];

     end;

   end;

   Memo1.Lines.Add(st);

 end;

 Label1.Caption :='Произведение=' + inttostr(p) +'    Сумма=' + inttostr(s);

end;

end.