Var ar:array[1..8] of integer;
max,min,i:integer;
begin;
min:=2147483647; //верхняя граница integer
for i:=1 to 8 do
begin;
readln(ar[i]);
if ar[i]<min then min:=ar[i];
if ar[i]>max then max:=ar[i];
end;
writeln('Max:',max);
writeln('Min:',min);
<span>end.</span>
Вещественный - значит есть запятая и цифры после нее. (real, и др типы) <span>Целый - это значит нет запятой (или точки) после целой части. (integer) </span>
*Год.exe - неправильное название из за символа *
Новый!_Год.txt - правильное, нет запрещенный символов
Новый-год:exe - неправильно из-за двоеточия, там должна быть точка
Новый год,exe - неправильно из-за запятой, там должна быть точка
<em><u>qBASIC:</u></em>
INPUT "x="; x
INPUT "y="; y
Sa = (x + y) / 2
Sb = SQR(x * y)
PRINT "Sa="; Sa, "Sb="; Sb
END
<em><u>Тестовое решение:</u></em>
x=? 3.6
y=? 2.8
Sa= 3.2 Sb= 3.174901