Задачки по паскалю

Фу, паскаль

--- Сообщение объединено с предыдущим 9 фев 2021

В гугле поищи, тут ни один адекватный человек прогу на паскале тебе писать не будет(я надеюсь)

 

За 10к напишу

 

в 1 задаче в строчке if min>A then min:=a;

 

1)Помойму так
Program MIn_element_massiva ;
Var i, n, max : integer ;
A : array [1..10] of integer;
Begin
Writeln('Введите количество элементов массива') ;
Readln(N) ;
Randomize;
For i := 1 to N do
begin
A := Random(10);
Write(A);
end;
MIn := A[1];
For i := 2 to N do
if A<Min then Min := A;
Writeln('Минимальный Элемент массива = ',Min) ;
Readln ;
End.

--- Сообщение объединено с предыдущим 9 фев 2021

2)
const N = 10;
var
a: array[1..N] of integer;
i: byte;
min, max: integer;
begin
randomize;
for i:=1 to N do a:=random(10);
for i:=1 to N do write(a:4);
writeln;
min := 10;
max := -1;
for i:=1 to N do begin
if a > max then max := a
else if a < min then min := a;
end;
writeln(max,'-',min,'=',max-min);
end.