№33
Делаем построчно
___________________________________
a = 2
b
___________________________________
a = 2
b = 20
___________________________________
a = 20 + 2 / 2 = 21
b = 20
___________________________________
a = 21
b = 24 - 21 = 3
Ответ: 3
№34
Делаем построчно:
___________________________________
a
b = -5
___________________________________
a = 2
b = -5
___________________________________
a = 11 - 2 * 2 + 5 = 12
b = -5
___________________________________
a = 12
b = 12 / 3 - 3 * -5 = 4 + 15 = 19
Ответ: 19
Ответ:
#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) Если Delphi 7, то могут быть проблемы с русскими наименованиями таблиц/столбцов в БД (у самого так было).
2) Я бы по другому запрос написал, примерно так:
SELECT * FROM infa WHERE familia >= +QuotedStr(help2) (в конце уже не помню как там в делфи надо, чтоб переменную в запрос добавить)
Надеюсь помог, удачи.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function Min(a,b,c,d:integer):=Min(Min(a,b),Min(c,d));
begin
Writeln(Min(3,8,-2,0)) // пример вызова
end.
