<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
Println('Максимальный=',ReadArrInteger(ReadInteger('n->')).Where(t->t<0).Max)
end.
Пример:
n-> 5
-7 8 -6 4 -1
Максимальный= -1
Это как ? Имеется в виду что в учебнике ?
Если да то, большинство в учебнике рассказывается про историю как создавался компьютер . От линейки до сверхкомпьютеров NASA
Временная память и постоянная память. Временная память не сохраняется и исчезает при выключение устройств-оперативная память компьютера. Постоянная память это в устройстве которое записывает информацию- жесткий диск
Var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
<span>end. </span>