На основании материалов и выполненных программ урока, выполнить практическое задание
Дан массив, состоящий из N целых чисел, количество элементов
вводится с клавиатуры. Составить программу, в которой будут
реализованы следующие действия:
а) заполнение массива случайными числами и вывод полученного
массива на экран;
б) поиск значения и номера наименьшего элемента массива;
фрагмент по поиску максимального элемента прилагается
k:=0;
max:=prim[1];
for i:=1 to n do begin
if prim[i]>=max then begin
max:=prim[i;
k:=i;
end;
end;
write('максимальный элемент массива',prim[i], под номером", k);
1 из 243​

Задача 1
Var i,sum:integer;
      mas:array [1..10] of integer;
Begin 
  for i:=1 to 10 do begin         
     mas[i]:=random(20);           
      write(' ',mas[i]);           
     sum:=sum+mas[i];                   
                         end; 
writeln; 
   write('Среднее арифметическое этих чисел = ',sum/10);
End.

Задача 2 
Var i,max:integer;
Begin 
readln(i); 
    while (i<>0) do begin   
       if (i>max) then max:=i;   
          readln(i);     
                       end; 
  Writeln('Максимальное число: ',max);
End.

1.Отметьте допустимые идентификаторы знаком«+»,а недопустимые знаком «-»
+ 1) RAZMER
+ 2)_Beta
- 3) 5 ABC
+ 4) Y22M

2. Подберите подходящий тип данных:
a) Количество учеников в классе – integer, word, byte
b)Заработанная плата сотрудника фирмы- real, double
c) Фамилия сотрудника фирмы – string

3.Запишите арифметические выражения на языке программирования Паскаль:
a) ac-b+xyz  = a*c-b+x*y*z;
в) a*x^2+b*x+c = a*x*x+b*x+c;
c) (a-b)x+3/y+z = (a-b)*x+3/(y+z);

4) Напишите инструкцию вывода на экран:
а) Вашего имени = write('Ваше имя');
В) Число 400 = write(400);
С) Значение выражения x+y = write(x+y);