1)необходимо аккуратно обращаться с проводами; запрещается работать с неисправным компьютером; нельзя заниматься очисткой компьютера, когда он находится под напряжением; недопустимо самостоятельно проводить ремонт оборудования при отсутствии специальных навыков; нельзя располагать рядом с компьютером жидкости, а также работать с мокрыми руками; нельзя в процессе работы с ПК прикасаться к другим металлическим конструкциям (например, батареям); не допускается курение и употребление пищи в непосредственной близости с ПК и др
// PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018 // Внимание! Если программа не работает, обновите версию!
procedure ArrRead(var a:array of integer); begin var n:=ReadInteger('Количество элементов в массиве:'); a:=ReadArrInteger('Введите элементы массива:',n) end;
procedure ArrMult(a:array of integer; var p:BigInteger); begin p:=a.Aggregate(BigInteger(1),(p,q)->p*q) end;
begin var m1,m2:array of integer; ArrRead(m1); ArrRead(m2); var p1,p2:BigInteger; ArrMult(m1,p1); ArrMult(m2,p2); Writeln('Произведение элементов первого массива ',p1); Writeln('Произведение элементов второго массива ',p2); Writeln('Общее произведение ',p1*p2) end.
var
a: array [1..5,1..6] of integer;
i,j,sum,ip,jp:integer;
flag:boolean;
begin
flag:=false;
sum:=0;
for i:=1 to 5 do
begin
for j:= 1 to 6 do
begin
a[i,j]:=random(31)-10;
write(a[i,j]:4);
if a[i,j] mod 2 = 0 then
sum:=sum+a[i,j];
if not flag then
if abs(a[i,j] mod 2) = 1 then
begin
flag:=true;
ip:=i;
jp:=j;
end;
end;
writeln;
end;
a[ip,jp]:=sum;
writeln;
for i:=1 to 5 do
begin
for j:=1 to 6 do
write(a[i,j]:4);
writeln;
end;
end.