Ответ:
const g = 5; v = 7;
var a: array[1..g,1..v] of integer;
i,j,maxj,minj,p:integer;
begin
writeln('Массив: ');
for i:=1 to g do
begin
for j:=1 to v do
begin
a[i,j]:=random(90)+10;
write(a[i,j]:4)
end;
writeln
end;
for i:=1 to g do
begin
maxj:=1;
minj:=1;
for j:=1 to v do
begin
if a[i,j]>a[i,maxj] then maxj:=j;
if a[i,j]<a[i,minj]then minj:=j;
end;
p:=a[i,maxj];
a[i,maxj]:=a[i,minj];
a[i,minj]:=p;
end;
writeln;
writeln('Преобразованный массив: ');
for i:=1 to g do
begin
for j:=1 to v do write(a[i,j]:4);
writeln
end;
end.
Объяснение:
Таблицы созданы, связь установлена, запрос сформирован. Данные надо будет набить. Базу данных сюда прикрепить нельзя. Выложена тут: https://yadi.sk/d/a2sdyUO5TVd45
Var a:integer;
begin
readln(a);
case a of
1:writeln('январь,31 день');
2:writeln('февраль,28(29) дней');
3:writeln('март,31 день');
4:writeln('апрель,30 дней');
5:writeln('май,31 день');
6:writeln('июнь,30 дней');
7:writeln('июль,31 день');
8:writeln('август,31 день');
9:writeln('сентябрь,30 дней');
10:writeln('октябрь,31 день');
11:writeln('ноябрь,30 дней');
12:writeln('декабрь,31 день');
end;
end.<span>
</span>
все зависит от того какова цель. Задание должно быть поставленно так чтоб достигать цели. Судя по сказке, цель была достигнута, значит задание было поставленно правильно
0,1,2,3 _ числа характерные как минимум для четверичной системы счисления → <span>301011 может существовать в СС с основанием 4 и выще</span>