1.составить программу, которая вводит с клавиатура массив из 5 целых чисел и выводит на экран значение четвертого элемента массива . 2.дан массив из 10 элементов, заполненный удвоенными значениями индексов элементов массива. чему равно значение восьмого элемента массива.

1)uses crt; const n=5; var a: array[1..n] of integer; i: integer; begin for i: =1 to n do readln(a[i]); writeln; writeln(a[4]); end. 2)uses crt; const n=10; var a: array[1..n] of integer; i: integer; begin for i: =1 to n do a[i]: =i*2; writeln(a[8]); end.

Информационная модель — модель объекта, представленная в виде информации, описывающей существенные для данного рассмотрения параметры и переменные величины объекта, связи между ними, входы и выходы объекта и позволяющая путём подачи на модель информации об изменениях входных величин моделировать возможные состояния объекта.

Информационная модель (в широком, общенаучном смысле) — совокупность информации, характеризующая существенные свойства и состояния объекта, процесса, явления, а также взаимосвязь с внешним миром.

Const  n=7; day: array[1..7] of string[15] = ('понедельник','вторник','среда','четверг','пятница','суббота','воскресенье'); var   t: array[1..7] of integer;   d: array[1..7] of real;   i,k: byte;   s: integer;   sr: real; begin   s: =0;   randomize;   writeln('температура в течение недели: ');   for i: =1 to n do   begin     t[i]: =random(50)-25;     s: =s+t[i];     write(t[i]: 4);   end;   writeln; sr: =s/n; writeln('средняя температура: ',sr: 3: 2); k: =0; writeln('температуры ниже средней в дни  : '); for i: =1 to n do   if t[i]< sr then   begin         write(day[i]: 15);         k: =k+1;   end; writeln; writeln('всего ',k,' дня(ей)'); writeln('массив отклонений: '); for i: =1 to n do   begin   d[i]: =t[i]-sr;   write(d[i]: 8: 3);   end; end.