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. .