program v5;
var a:array[1..15]of integer;
i,j,n,buf:integer;
begin
randomize;
for i:=1 to 15 do
begin
a[i]:=random(70)-20;
write(a[i], ' | ');
end;
writeln; writeln('Измененный массив: ');
for i:= 1 to 15 do
begin
if a[i] mod 5=0 then
begin
a[i]:= 0;
write(a[i], ' | ')
end
else
write(a[i], ' | ');
end;
for i:=1 to 15-1 do
for j:=1 to 15-i do
begin
if (a[j] > a[j+1]) then
begin
buf := a[j];
a[j] := a[j+1];
a[j+1] := buf;
end;
end;
writeln; writeln('Массив после рассортировки по возрастанию:');
for i:=1 to 15 do
write(a[i], ' | ');
end.
![Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [-20,50]](/tpl/images/1559/8551/43ce6.jpg)
б) (тип = "журнал" И срок = "6") ИЛИ название = "Известия"
как логика выглядит так:
а) (A∨B)∧C;
б) (A∧C)∨B.