program xyz;
var
D: array [1..25] of Integer;
i, imin, imax, amin, amax, s, p: Integer;
aver: Double;
begin
Randomize;
WriteLn ('Массив:');
for i := Low (D) to High (D) do begin
D [i] := Random (101);
Write (D [i], ' ');
end;
imin := Low (D);
imax := Low (D);
amin := D [Low (D)];
amax := D [Low (D)];
s := 0;
for i := Low (D) to High (D) do begin
s := s + D [i];
if D [i] < amin then begin
amin := D [i];
imin := i;
end;
if D [i] > amax then begin
amax := D [i];
imax := i;
end;
end;
Aver := s / 25;
p := 1;
for i := Low (D) to High (D) do begin
if D [i] > Aver then
p := p * D [i];
end;
WriteLn;
WriteLn ('Минимальное значение = ', amin);
WriteLn ('Индекс = ', imin);
WriteLn ('Максимальное значение = ', amax);
WriteLn ('Индекс = ', imax);
WriteLn ('Среднее арифметическое = ', aver :10 :5);
WriteLn ('Произведение = ', p);
ReadLn;
end.
В повседневной жизни человек все время сталкивается с различными процессами:смена времен года, приготовление еды, пошив костюма, выпечка хлеба, написание сочинения и т.д. Одни процессы протекают в живой природе, другие - в обществе человека. Некоторые процессы протекают независимо от влияния человека в других процессах человек принимает активную роль.
В производстве используются технологические процессы, которые могут существенно отличаться. Для выпечки хлеба и производства высокоточной техники требуется разный набор составляющих и так же оборудование.
Особую роль в ходе протекания процесса играет информация. демонстрация
С органов чувств люди воспринимают информацию, осмысливают ее и на основе своего опыта, имеющихся знаний, интуиции принимают решения.
Процессы, связанные со сбором, хранением, поиском,обработкой, кодированием и передачей информации, называют информационными процессами. Информационные процессы протекают не только в человеческом обществе, но и в животном и растительном мире.
Program Stepen_chisla;
Var
Z, А : Real; M : integer;
Function Step (N: integer; X:real): real;
Var
I: integer; Y: Real;
Begin
I:=1; Y:=1;
While I<=N do
Begin
Y:=Y*X; I:=I+1;
End;
Step:=Y;
End; {Конец функции}
Begin
Write(‘Введи степень и возводимое число’); Readln(Z,M);
F:=Step(M,Z);
Writeln(Z, ‘ в степени’, M, ‘=’,F);
End.