Триединая задача урока: Познавательная Формировать навыки и умения составления программ с использованием массивов. Развивающая Учить строить аналогии, выделять главное, ставить и решать проблемы. Воспитательная Воспитывать аккуратность, внимательность, вежливость и дисциплинированность.   План урока: 1.     Составление программ   a.  Заполнить массив случайными числами и вывести его на экран компьютера.   Program Random_mas; uses Crt; Var i: integer;     Ran : array [1..10] of integer; begin Clrscr; Randomize; For i:=1 to 10 do     begin          ran[i]:=random(100);          writeln(ran[i]);     end; readln; end.       b. Определить, содержит ли  массив A[1..20] случайных чисел число Х, введенное с клавиатуры.   Program Poisk_mas; uses Crt; Var i, x: integer;     A : array [1..20] of integer;     c: string; begin Clrscr; Randomize; Write ('Zadayte chislo X  '); readln (x); c:='v massive net chisla x'; For i:=1 to 20 do     begin          a[i]:=random(10);          writeln(A[i]);          if a[i]=x then c:='v massive est chislo x';     end; writeln (c); readln; end.   c.   Заполнить массив значениями, вычисляемыми по формуле: a[i]:=sin i *i2 Вывести элементы этого массива на экран компьютера и найти максимальное значение среди них.   Program Max_mas; uses Crt; Var i:integer;     max: real;     A : array [1..10] of real; begin Clrscr; For i:=1 to 10 do     begin          a[i]:=sin(i)*sqr(i);          writeln(A[i]:8:3);     end;     max:=A[1]; For i:=2 to 10 do     if a[i]> max then max:=a[i]; writeln; writeln ('max=', max:8:3); readln;  end.   d. Составить программу подсчета суммы и произведения элементов одномерного       массива. Program sum-prois; uses crt; const             n = 100; var             a: array [1…n] of real;             n, k, i: integer;             p, s: real; begin             clrscr;      s: = 0;  p: =1;             writeln ('введите размер массива');     readln (nk);             writeln ('введите элемент массива');             for i:=1 to nk do                                   readln (a[i] );             for i:=1 to nk do                                    begin                                 s:= s + a[ i ];                                 p:= p * a[ i ];                                    end;           writeln ('Сум. = ', s, 'Произ. =' , p); end.             Необходимо подготовить ячейки: -          при накапливании суммы - s=0 -          при подсчете произведения - p=1. Задача рассчитана на обработку массива с максимальным размером 100 элементов (n=100).             Конкретный размер массива вводится с клавиатуры (nk).             При каждом прохождении через цикл с клавиатуры вводится только один элемент массива. Два цикла for можно было объединить в один.   Пр. Задача формирования массива по правилу: Задан массив X из 8 элементов. Сформировать массив Y по правилу Y[i]=   4X[i], если I – четное             Cos 2X[i], если I – нечетное и найти количество его положительных элементов. Var x,y: array [1..8] of real; I,k:integer; Begin  Writeln ('Введите массив X из 8 элементов'); For i:=1 to 8 do begin   Read (x[i]);   If I mod 2 =0 then y[i]:=4*x[i]   Else y[i]:=cos(2*x[i]); End; K:=0; Writeln ('Массив Y');  For i:=1 to 8 do begin     If y[i]>0 then k:=k+1;    Write (y[i]:8:2);  End;  Writeln;  Writeln ('K=',k); End.