1) var a: array[1..100] of integer; i,n: integer; begin writeln('Введите кол-во элементов массива'); readln(n); writeln('Массив:'); for i:=1 to n do begin a[i]:= random(50)+1; write(a[i],' ' ); end; writeln; if a[1]<a[2] then begin writeln('Локальный минимум:',a[1]); exit; end; for i:=2 to n do if (a[i]<a[i-1]) and (a[i]<a[i+1]) then begin writeln('Локальный минимум:',a[i]); exit; end; writeln('Локальный минимум:',a[n]); end. 2) var a: array[1..100] of integer; b:array[1..100] of integer; i,n,k: integer; begin writeln('Введите кол-во элементов массива'); readln(n); writeln('Массив A:'); for i:=1 to n do begin a[i]:= random(50)+1; write(a[i],' ' ); b[i]:=a[i]; end; writeln; writeln('Массив B:'); for k:=1 to 2 do for i:=1 to n do write(b[i],' '); end.
Информационные процессы поиск сбор хранение передача обработка использование защита Канал связи - это… совокупность технических устройств, обеспечивающих передачу сигнала от источника к получателю телефонный кабель устройство, предназначенное для преобразования исходного сообщения источника информации к виду удобному для передачи устройство для преобразования кодированного сообщения в исходноеНаиболее информационно емкие молекулы ДНК оптические диски жесткие диски DVD-диски флешки Единицы измерения скорости передачи информации биты в секунду символы в секунду килобиты в секунду мегабиты в секундуПропускная канала - это… количество переданной информации потери информации максимальная скорость передачи информации"Шум" - это… помехи, искажающие передаваемый сигнал звуковые помехи помехи, приводящие к потере информации качество линий связи
var
a: array[1..100] of integer;
i,n: integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Массив:');
for i:=1 to n do
begin
a[i]:= random(50)+1;
write(a[i],' ' );
end;
writeln;
if a[1]<a[2] then
begin
writeln('Локальный минимум:',a[1]);
exit;
end;
for i:=2 to n do
if (a[i]<a[i-1]) and (a[i]<a[i+1]) then
begin
writeln('Локальный минимум:',a[i]);
exit;
end;
writeln('Локальный минимум:',a[n]);
end.
2)
var
a: array[1..100] of integer;
b:array[1..100] of integer;
i,n,k: integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:= random(50)+1;
write(a[i],' ' );
b[i]:=a[i];
end;
writeln;
writeln('Массив B:');
for k:=1 to 2 do
for i:=1 to n do
write(b[i],' ');
end.