var a: array [1..100] of integer;
i,n,min,max:integer;
Begin
read(n);
for i := 1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
for i:= 1 to n do begin
write(a[i],' ');
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(min,max);
End.
Шрек подарил мешочек с фруктами
Фиона подарила ракушку с леденцами
Дети подарили сундучок с тортом
<span>Windows,Macintosh,Linux, DOS .</span>
Ошибки нет.
В условном операторе после if пишется <условие> (в данном случае "x=100"), а после then - <оператор> (в данном примере это оператор присваивания "y:=x*x;")
Const
n=5;
m=6;
var
i,j,s,z:integer;
a:array[1..n,1..m]of integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
readln(z);
i:=2;
while i<=n do
begin
for j:=1 to m do
if a[i,j]=z then s:=s+1;
i:=i+2;
end;
writeln('Ответ: ',s);
<span>end.</span>