1. var a: array [0..12] of integer; i, k: byte; min: integer; begin Randomize; for i:=0 to 12 do begin a[i]:=random(15)-4; write(a[i]:4); end; min:=a[0]; for i:=1 to 12 do if a[i] < min then begin min:=a[i]; k:=i; end; writeln; writeln('Min v pozicii ', k, ' = ', a[k]); readln; end.
2. var a: array [1..6] of integer; i: byte; begin for i:=1 to 6 do begin write(i, ' = '); readln(A[i]); end; writeln; for i:=1 to 6 do begin if i mod 2 = 0 then A[i]:=0; write(A[i], ' '); end; readln; end.
Строго выполняйте все указанные выше правила, а также текущие указания преподавателя; следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры; легко и быстро нажимайте на клавиши, не допуская резких ударов; не пользуйтесь клавиатурой и мышью, если не включен компьютер; работайте на клавиатуре чистыми руками; никогда не пытайтесь самостоятельно устранить неисправность в работе аппаратуры; не вставайте со своих рабочих мест, когда в кабинет входят посетители.
var
a: array [0..12] of integer;
i, k: byte;
min: integer;
begin
Randomize;
for i:=0 to 12 do
begin
a[i]:=random(15)-4;
write(a[i]:4);
end;
min:=a[0];
for i:=1 to 12 do
if a[i] < min then
begin
min:=a[i];
k:=i;
end;
writeln;
writeln('Min v pozicii ', k, ' = ', a[k]);
readln;
end.
2.
var
a: array [1..6] of integer;
i: byte;
begin
for i:=1 to 6 do
begin
write(i, ' = ');
readln(A[i]);
end;
writeln;
for i:=1 to 6 do
begin
if i mod 2 = 0 then A[i]:=0;
write(A[i], ' ');
end;
readln;
end.