#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int a[5][5] =
{
{4,-5,8,-3,1},
{-3,8,-1,1,-8},
{9,6,6,-3,-7},
{-7,-3,3,6,-7},
{7,-3,-6,5,0},
};
int b[5][5];
int i, j, cp, cm, sp, sm;
setlocale(LC_ALL, "Russian");
cout << "Массив A";
for (i = 0; i < 5; i++) {
cout << endl;
for (j = 0; j < 5; j++) {
cout << setw (4) << a[i][j];
}
}
cp = cm = sp = sm = 0;
for (i = 0; i < 5; i++) {
for (j = 0; j < 5; j++) {
if (a[i][j] >= -5)
b[i][j] = a[i][j];
else
b[i][j] = - a[i][j];
if (a[i][j] > 0) {
cp++;
sp += a[i][j];
}
if (a[i][j] < 0) {
cm++;
sm += a[i][j];
}
}
}
cout << endl << endl;
cout << "Среднее значение положительных элементов = " << (float) sp / cp << endl;
cout << "Среднее значение отрицательных элементов = " << (float) sm / cm << endl << endl;
cout << "Массив B";
for (i = 0; i < 5; i++) {
cout << endl;
for (j = 0; j < 5; j++) {
cout << setw(4) << b[i][j];
}
}
return 0;
}
Что это такое – египетская система счисления? Чтобы написать какое-либо число, использовали иероглифы, обозначавшие определенные числа, сумма которых равнялась нужному значению. Специальные обозначения имелись для чисел 1, 10, 100, 1000, 10000, 100000, 1000000. При написании нужного числа каждое обозначение использовалось до 9 раз. Запись в египетской системе счисления шла по возрастанию: вначале единицы, потом десятки, сотни и так далее. Причем писали, как правило, справа налево, но можно было и слева направо, сумма от этого не менялась. Использовалось и вертикальное написание, но тогда отсчет шел сверху вниз.
Объяснение:Использовалось два написания: Иероглифический, в котором употреблялись принятые иероглифы. Иератический, который являлся более схематичным и удобным на практике
1 задача
var a: string;
begin
write('Введите двузначное число: ');
readln(a);
writeln((a.First() = a.Last()) ? 'Цифры одинаковы' : 'Цифры различаются');
end.
2 задача
var
month: integer;
season: string;
begin
write('Введите номер месяца: ');
readln(month);
case month of
1,2,12: season := 'Зима';
3..5: season := 'Весна';
6..8: season := 'Лето';
9..11: season := 'Осень';
else season := 'Вы ввели неверный номер месяца';
end;
writeln(season)
end.
3 задача
var
age: integer;
ending: string;
begin
write('Введите возраст: ');
readln(age);
if (age mod 100 >= 10) and (age mod 100 <= 20)
then ending := 'лет'
else
case (age mod 10) of
1: ending := 'год';
2..4: ending := 'года';
5..9, 0: ending := 'лет'
end;
write(age, ' ', ending)
end.