Var arr: array[1..100] of integer; i, n, min, max: integer; begin min:=1; max:=1; readln(n); for i:=1 to n do begin arr[i]:=random(100); write(arr[i], ' '); if arr[i]>arr[max] then max:=i; if arr[i]<arr[min] then min:=i; end; writeln; writeln('Минимальный(', arr[min], '); Максимальный(', arr[max], ');'); end.
Интерфейс (от англ. interface — поверхность раздела, перегородка) — совокупность средств и методов взаимодействия между элементами системы. В зависимости от контекста, понятие применимо как к отдельному элементу (интерфейс элемента) , так и к связкам элементов (интерфейс сопряжения элементов) .
Примеры: 1) вожжи — главный элемент интерфейса между лошадью и кучером (вожжи — интерфейс системы «лошадь — кучер») . Или же вожжи — интерфейс (управления) лошади; 2) руль, педали газа и тормоза, ручка КПП — интерфейс (управления) автомобиля, или же интерфейс системы «водитель — автомобиль» . Для автомеханика же интерфейсными элементами являются совсем другие устройства — щуп уровня масла, например; 3) электрические вилка и розетка — являются интерфейсом энергоснабжения большинства бытовых приборов; клавиатура и мышь — являются интерфейсом компьютера в контексте «пользователь — ЭВМ» ; 4) адрес электронной почты — является коммуникационным интерфейсом пользователя интернет.
// PascalABC.Net procedure RectangleSquare; var a,b:double; begin Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b); Writeln('Площадь прямоугоьника равна ',a*b) end;
var i:byte; begin for i:=1 to 3 do RectangleSquare end.
Тестовое решение: Введите через пробел длины сторон прямоугольника: 3 7 Площадь прямоугоьника равна 21 Введите через пробел длины сторон прямоугольника: 12.4 15.8 Площадь прямоугоьника равна 195.92 Введите через пробел длины сторон прямоугольника: 14 12.5 Площадь прямоугоьника равна 175
arr: array[1..100] of integer;
i, n, min, max: integer;
begin
min:=1;
max:=1;
readln(n);
for i:=1 to n do
begin
arr[i]:=random(100);
write(arr[i], ' ');
if arr[i]>arr[max] then max:=i;
if arr[i]<arr[min] then min:=i;
end;
writeln;
writeln('Минимальный(', arr[min], ');
Максимальный(', arr[max], ');');
end.