На основании материалов и выполненных программ урока, выполнить практическое задание
Дан массив, состоящий из 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​

Объяснение:

Учитель при может подготовить к уроку дополнительный и раздаточный материал и распечатать его на принтере в требуемом количестве экземпляров, создать отчет о своей работе и т.д.

Конструкторы при текстового процессора могут подготовить проекты различных зданий, сооружений, конструкций.

Врачи могут заполнять регистрационные карточки больных, также вести всю документацию в организации лечебных учреждений.

Дизайнеры могут воспользоваться текстовым процессором для создания моделей, дизайнерских предложений, проектов.

Полагаю, Pascal ABC.

//Для Pascal ABC.Net:
Var a:array[1..10] of longint;n,i,k:longint;
Begin
readln(n); //Читаем количество элементов в массиве
for i:=1 to n do
begin
read(a[i]); //Читаем каждый элемент в массиве
if (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуля
end;
writeln(k); //Выводим счётчик k
End.

//Для Pascal ABC:
Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longint
Begin
readln(n); 
for i:=1 to n do
begin
read(a[i]); 
if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с только с :=k+1
end;
writeln(k); //Выводим счётчик k
End.