М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
yannashipunova
yannashipunova
03.06.2022 03:20 •  Информатика

Найти сумму элементов квадратной матрицы a(4,4),расположенных выше побочной диагонали.алгоритм на паскаль. 20 )

👇
Ответ:
Лилоп
Лилоп
03.06.2022

program pr;

var

a:array[1..4,1..4] of integer;

i,k,sum,j:integer;

begin

writeln('Ввод значений матрицы(горизонтально по рядам)');

for i:=1 to 4 do

begin

for k:=1 to 4 do

 begin

 readln(a[i, k]);

 end;

end;

writeln('получившаяся матрица:');

for i:=1 to 4 do

begin

for k:=1 to 4 do

 begin

 write(a[i, k]);

 end;

 writeln();

end;

 

sum:=0;

j:=4;

for i:=1 to 4 do

begin

for k:=1 to 4 do

 begin

 if k<j then sum:=sum+a[i,k];

 end;

 j:=j-1;

end;

writeln('сумма: ',sum);

end.

4,8(35 оценок)
Ответ:
kilbas1ggttyi
kilbas1ggttyi
03.06.2022

функция..

Объяснение:

function arrsum(a: array[1..4,1..4] of real):real;

var

x,y:integer;

sum:real;

begin

sum:=0;

for x:=1 to 3 do

for y:=1 to (4-x) do

sum:=sum+a[x,y];

result:=sum;

end;

4,7(11 оценок)
Открыть все ответы
Ответ:
настя6670
настя6670
03.06.2022

ответ: ок я програмист со стажем

Объяснение:

user = "імя"

action = "школа"

 

log_message = 'Пользователь {} зашел на сайт и выполнил действие: {}'.format(

   user,

   action

)

 

print(log_message)

# Пользователь імя зашел на сайт и выполнил действие: школа

from dataclasses import dataclass

 

@dataclass

class Armor:

   armor: float

   description: str

   level: int = 1

   

   def power(self) -> float:

       return self.armor * self.level

   

armor = Armor(5.2, "Common armor.", 2)

armor.power()

# 10.4

 

print(armor)

# Armor(armor=5.2, description='Common armor.', level=2)

4,7(15 оценок)
Ответ:
arioom
arioom
03.06.2022
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

1)

procedure Add(a,b:integer; var r:integer);
begin
  r:=a+b
end;

begin
  var (x,y):=ReadInteger2('Введите два целых числа:');
  var z:integer;
  Add(x,y,z);
  Writeln('Их сумма равна ',z)
end.

Пример
Введите два целых числа: 18 142
Их сумма равна 160

2)

function Min3(a,b,c:integer):=Min(a,Min(b,c));

begin
  var (i,j,k):=ReadInteger3('Введите три целых числа:');
  Writeln('Минимальное равно ',Min3(i,j,k))
end.

Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4
4,4(69 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ