#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;
}
2. Цикл со счетчиком относится к циклическим алгоритмам. Управляет циклом специальная переменная, которая называется счетчиком или параметром цикла. Особенность такого цикла в том, что он всегда выполняется известное число раз, которое определяется заголовком цикла до первого входа в тело цикла. Цикл со счетчиком обеспечивает изменение параметра цикла от некоторого начального значения a до значения b c шагом h. Количество повторений такого цикла вычисляется по формуле
3. В языке Паскаль цикл со счетчиком накладывает весьма жесткие условия на параметр цикла (счетчик):
- параметр цикла должен быть целочисленной переменной;
- шаг изменения параметра цикла может быть равен или 1, или -1;
- значения границ интервала (a,b) и шага h фиксируются перед первым входом в тело цикла и даже будучи измененными в теле цикла уже не влияют на параметр цикла;
- значение параметра цикла нельзя изменять в теле цикла;
- значение параметра цикла после выхода из цикла считается неопределенным, т.е. не должно использоваться в случае тиражирования исходного кода программы, поскольку в разных реализациях Паскаля это значение может оказать различным- любым, равным последнему допустимому в теле цикла значению, либо отличающимся от этого значение на величину шага в сторону изменения параметра цикла.
4. Реализация поставленной задачи.
Число считается четным, если оно делится на 2 без остатка. Нам нужно найти сумму четных чисел из ряда 12, 14, 16, ... 28, 30. Цикл со счетчиком, как было замечено выше, не может обеспечить изменение параметра цикла с шагом два. Поэтому есть три пути.
Первый путь - организовать цикл со счетчиком, который переберет все числа от 12 до 30. В теле цикла проверять условие четности и удовлетворяющие этому условию числа передавать не суммирование.
Второй путь - найти формулу для общего члена последовательности чисел и реализовать её при изменении счетчика с шагом 1. Формула для получения четных числ натурального ряда известна: m=2*k, где k=1,2,3,...
Если мы будем менять k от 6 до 15, то получим набор целых четных чисел m от 12 до 30.
Третий путь - вспомнить формулу суммы ряда арифметической прогрессии.
На этом, третьем пути, мы легко нашли ответ и программа получается не нужна.
Тем не менее, в задании сказано реализовать цикл со счетчиком и мы выбираем второй путь, как более эффективный.
5. Программа на языке Pascal
var
i, s: integer;
begin
s := 0;
for i := 6 to 15 do s := s + 2 * i;
Writeln('Сумма четных чисел от 12 до 30 равна ', s)
end.
Результат выполнения:
Сумма четных чисел от 12 до 30 равна 210
6. Блок-схема приведена во вложении.