А)
program c1;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 1 / 3;
write(c);
end.
Б)
program c2;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 4 / 2 * 3 + 6;
write(c);
end.
В)
program c3;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 4 / 2 * 3;
write(c);
end.
Объяснение:
А)
program c1; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 1 / 3; // c = a + 1 ÷ 3
write(c); // Выводим ответ
end. // Конец программы
Б)
program c2; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 4 / 2 * 3 + 6; // c = a + 4 ÷ 2 × 3 + 6
write(c); // Выводим ответ
end. // Конец программы
В)
program c3; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 4 / 2 * 3; // c = a + 4 ÷ 2 × 3
write(c); // Выводим ответ
end. // Конец программы
Столица Древнего Египта - Мемфис.
Объяснение:
Земли вокруг столицы (Мемфис) были очень плодородны. Нил широко разливался и питал почву илом. Таким образом, она получала природное удобрение. Большая часть жителей Мемфиса была занята в сельском хозяйстве. Они выращивали хлопок, виноград, инжир и зерновые культуры, собирали розовое масло, разводили овец. Крестьяне собирали богатый урожай с полей. Овцы хорошо росли и плодились. Местная отара достигала нескольких сот тысяч голов. Поэтому проблем с пропитанием всех жителей царского двора не возникало. Многочисленная дворцовая челядь, жрецы, слуги и рабы всегда были сыты.
// здесь нужно объявить количество элементов или ввести с
var
a: array [1..N] of integer;
i: integer;
min: integer;
max: integer;
minnum: integer;
maxnum: integer;
begin
// здесь должен быть ввод значений массива в цикле
// for i:=1 to N do
a[i]=Random(100); или через readln;
min := a[1];
minnum := 1;
max := a[1];
maxnum := 1;
for var i:=2 to N do
begin
if a[i]<min then
begin
min := a[i];
minnum := i;
end;
if a[i]>max then
begin
max := a[i];
maxnum := i;
end;
end;
a[maxnum]=min;
a[minnum]=max;
//здесь вывод нового массива
end.
2)
for i:=1 to N do
if a[i]>0 then
if a[i] mod 2 = 0 then
write(a[i], ' ');
3)
var
sum: integer;
start: integer;
for i:=1 to N do
if a[i]=0 then
start=i+1; нашли первый нулевой, начинаем дальше со следующего
for i:=start to N do
begin
if a[i]>0 then
begin
sum=sum+a[i];
write(i, ' '); ///номер положительного элемента
end;
writeln;
write('Сумма =',sum);
end;