Вопрос по информатике:
Всем Привет! Люди добрые помогите решением. Первую задачу отправил на проверку Спасибо!!! Сейчас вторая. В матрице A(m x m) найти сумму элементов четных столбцов. Если эта сумма положительна, то все элементы нечетных строк возвести в квадрат. В противном случае ко всем элементам побочной диагонали прибавить число 2.
- 26.12.2017 03:19
- Информатика
- remove_red_eye 18587
- thumb_up 70
Ответы и объяснения 1
program Task;
const
M = 3;
var
a:array[1..M, 1..M]of integer;
i, j: integer;
sum: integer;
result: real;
begin
{ Заполняем переменные }
sum := 0;
result := 0.0;
writeln('----------------------------------');
{ Заполняем массив случайным набором элементов }
for i:=1 to M do
begin
for j:=1 to M do
begin
a[i,j]:= random (40)-20;
write(a[i,j]:4);
end;
writeln();
end;
{ Считаем количество элементов }
for i:=1 to M do
for j:=1 to M do
sum := sum + a[i,j];
writeln('Sum: ',sum);
{ Если количество элементов > 0 - выполняем возведение в квадрат }
if(sum > 0)then
for i:=1 to((M div 2)+(m mod 2))do
for j:=1 to M do
a[i*2-1,j]:= a[i*2-1,j]*a[i*2-1,j]
{ Иначе - увеличиваем элементы побочной диагонали на 2 }
else
for i:=1 to M do
a[M-i+1,i]:= a[M-i+1,i]+ 2;
for i:=1 to M do
begin
for j:=1 to M do
write(a[i,j]:4);
writeln();
end;
writeln('----------------------------------');
end.
{*
Пример результатов:
----------------------------------
9 5 12
-9 -2 -15
-4 19 -4
Sum: 11
81 25 144
-9 -2 -15
16 361 16
----------------------------------
----------------------------------
7 2 13
-16 -3 17
-10 -16 3
Sum: -3
7 2 15
-16 -1 17
-8 -16 3
----------------------------------
*}
Тоже самое, но менее развёрнуто:
program Task;
const
M = 3;
var
a:array[1..M, 1..M]of integer;
i, j: integer;
sum: integer;
result: real;
begin
sum := 0;
result := 0.0;
for i:=1 to M do
for j:=1 to M do
a[i,j]:= random (40)-20;
for i:=1 to M do
for j:=1 to M do
sum := sum + a[i,j];
if(sum > 0)then
for i:=1 to((M div 2)+(m mod 2))do
for j:=1 to M do
a[i*2-1,j]:= a[i*2-1,j]*a[i*2-1,j]
else
for i:=1 to M do
a[M-i+1,i]:= a[M-i+1,i]+ 2;
end.
- 27.12.2017 16:35
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.