задание на фото, бред не писать, не спамить очень надо.

PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 Println('Результат:', (a.Max + a.Min) / 2)

end.

Turbo Pascal

program abcd;

uses Crt;

const

 nn = 100;

var

 i, n, max, min: integer;

 a: array[1..nn] of integer;

begin

 ClrScr;

 Write('n = ');

 Readln(n);

 Randomize;

 max := -32768;

 min := 32767;

 for i := 1 to n do

 begin

   a[i] := Random(199) - 99;

   Write(a[i], ' ');

   if a[i] > max then

     max := a[i]

   else if a[i] < min then

     min := a[i]

 end;

 Writeln;

 Writeln('Результат: ', (max + min) / 2);

 ReadKey

end.

Ученные: Математическая программа программа - Mathematica, SciLab, MATLAB.

Дизайнер: SketchUP, Photoshop 3D, AutoDesk - Homestyler.

Веб-программист: Eclipse, Brackets

Методист: Онлайн: Eclipse/etc. / оффлайн (т.е не нужно кликать на сайте чтобы давать ответы): Конструктор тестов (так и называется)

Дизайнер: Photoshop

Ученные - прикладная программа, т.к это не внутренний интерфейс, он не встроен в винду

Дизайнер: тоже прикладная

Веб-программист: Система программирования

Методист: Системная программа тк. встроена в винду

Дизайнер: Приклад т.к photoshop нужно скачивать с других ресурсов