Program prog; uses crt; var a:array[1..10] of integer; s,i,max, min: integer; sr: real;
begin clrscr; min:=a[1]; for i:=1 to 10 do begin write('a[',i,'] = '); readln(a[i]); end;
for i:=1 to 10 do begin s:=s+a[i]; if a[i]>max then max := a[i]; if a[i]<min then min := a[i]; end; sr:=s/10; writeln; writeln('Сумма всех элементов массива s = ', s); writeln('Среднее арифметическое sr = ', sr:0:1); writeln('Max = ', Max); writeln('Min = ', Min);
Локальная эта сеть объединяет компьютеры расположенные в пределах одного здания(одна комната одно учреждение завод) причиной создания локальной сети является автоматизация промышленных процессов обработка различных документов. Каждый компьютер подключённый к локальной сети осуществляет связь с сетевого адаптера. В каждой таблице БД может существовать первичный ключ. Под первичным ключом понимают поле или набор полей, однозначно (уникально) идентифицирующих запись. Первичный ключ должен быть минимально достаточным: в нем не должно быть полей, удаление которых из первичногоключа не отразится на его уникальности.
Const n = 10; var mas:array [1..n] of integer; i,x,j,a,b,index:integer; begin write('Введите диапазон от a до b: '); readln(a,b); for i:= 1 to n do begin mas[i]:=Random(b-a+1)+a; end; writeln('Полученный массив: '); for i:= 1 to n do write(mas[i]:4); for i:=n downto 1 do if mas[i]>0 then begin index:=i; break end; mas[index]:=mas[2]; writeln; writeln('Результат выполнения задания: '); for i:= 1 to n do write(mas[i]:4); readln end.
Введите диапазон от a до b: 10 40 Полученный массив: 25 13 38 31 39 12 16 11 26 33 Результат выполнения задания: 25 13 38 31 39 12 16 11 26 13
uses crt;
var a:array[1..10] of integer;
s,i,max, min: integer;
sr: real;
begin
clrscr;
min:=a[1];
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
s:=s+a[i];
if a[i]>max then max := a[i];
if a[i]<min then min := a[i];
end;
sr:=s/10;
writeln;
writeln('Сумма всех элементов массива s = ', s);
writeln('Среднее арифметическое sr = ', sr:0:1);
writeln('Max = ', Max);
writeln('Min = ', Min);
end.