НУЖНА Т-ТНужно составить программу в паскале. Дан массив из 20 элементов, заполненный случайными числами от -15 до 30. Нужно найти номера максимального и минимального элементов этого массива.

1.

program z1;

const n=20;

var a:array [1..n] of integer;

i,maxi,mini:integer;

begin

maxi:=1;

mini:=1;

write('Массив А: ');

for i:=1 to n do

begin

a[i]:=random(46)-15;

if a[i] > a[maxi] then maxi:=i;

if a[i] < a[mini] then mini:=i;

write(a[i],' ')

end;

writeln;

writeln('Максимальный элемент a[',maxi,'] = ',a[maxi]);

writeln('Минимальный элемент a[',mini,'] = ',a[mini])

end.

2.

program z1;

const n=20;

var a:array [1..n] of integer;

i,max,min:integer;

begin

max:=-15;

min:=30;

write('Массив А: ');

for i:=1 to n do

begin

a[i]:=random(46)-15;

if a[i] > max then max:=a[i];

if a[i] < min then min:=a[i];

write(a[i],' ')

end;

writeln;

for i:=1 to n do

begin

if a[i]=max then writeln('Максимальный элемент a[',i,'] = ',a[i]);

if a[i]=min then writeln('Минимальный элемент a[',i,'] = ',a[i])

end

end.

Объяснение:

1. Не учитывает повтор элементов. Ищет первый максимальный и первый минимальный элементы.

2. Учитывает повтор элементов, но надо точно задавать max и min исходя из диапазона чисел.

Плюсы) +

экспертные системы вырабатывать эффективные решения там, где не хватает высококвалифицированных специалистов (дистанционное обучение, предварительная постановка медицинских диагнозов и т.п.);

+ автономные устройства исследуют среды, где человек не может находиться без вреда для здоровья или опасности для жизни (космос, океанские глубины, зоны пожаров или радиоактивных загрязнений и т.п.);

Минусы)

- в социально-политической сфере его применение может проявиться в виде стремления к тотальному контролю; накопление огромного количества персональных данных о пользователях компьютерных систем ведет к ограничению личных свобод, причем если в авторитарных и деспотических обществах у граждан остается хотя бы теоретическая возможность сопротивляться властям и договариваться с ними, то в ситуации, когда решения будет принимать автоматика, люди окажутся перед лицом сил, не поддающихся обычному человеческому влиянию;

- с точки зрения экологии ИИ несет опасность; человечество разрушает окружающую среду, но, по крайней мере, вблизи своего жилья люди стараются поддерживать благоприятные условия; устройства, работающие под управлением ИИ, могут учесть не все экологические факторы, поскольку менее требовательны к чистоте окружающей среды;

Задание 1:

beginvar n := 0;while (not TryRead(n,'Введите количество чисел:')) or (n<0) do Writeln('неверный ввод');Writeln; if n=0 then Write('Чисел нет') else begin var a := ReadArrInteger('Введите числа:',n); Println('Сумма:',a.Sum); Println('Произведение:',a.Product); end end.

Задание 2:

uses GraphABC, ABCObjects; beginWindow.SetSize(300,200); var r1 := new RectangleABC(0,0,Window.Width,Window.Height div 2); var r2 := new RectangleABC(0,Window.Height div 2,Window.Width,Window.Height div 2); OnKeyPress += (c:char) -> begin r1.Text:=c; r2.Number:=Ord(c) end; end.

Задание 3:

beginWriteln(' I: X:');SeqGen(10,x->Random(0,20)*5).Numerate.PrintLines(x->Format('{0,2}  {1}',x[0],x[1])) end.

Примеры работ: