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

У Delphi 1. Для кожного стовпця матриці визначити і надрукувати кількість елементів,
значення яких перевищує число Z.
2. Знайти і надрукувати суму значень від’ємних елементів матриці.

👇
Ответ:
Zhenya12123
Zhenya12123
14.07.2022

ример 1. Задан массив A, содержащий 100 целых чисел. Найти сумму элементов этого массива. Фрагмент кода, решающего эту задачу

// сумма элементов массива A из 100 целых чисел

int A[100];

int suma; // переменная, содержащая сумму

int i; // дополнительная переменная

// ввод массива A

// ...

// Вычисление суммы

suma = 0; // обнулить сумму

for (i=0; i<100; i++)

suma += A[i];

4,5(35 оценок)
Открыть все ответы
Ответ:
kati1200777
kati1200777
14.07.2022

type

  base = record

     id: integer;

     ball: integer;

  end;

var

  t: text;

  a: array of array of integer;

  n: integer;

  st, tmp: string;

  err: integer := 1;

  database: base;

begin

  readln(n);

  setlength(a, n);

  for i: integer := low(a) to high(a) do

     setlength(a[i], 2);

  for i: integer := low(a) to high(a) do

  begin

     readln(st);

     tmp := st;

     delete(tmp, pos(' ', tmp, err), tmp.Length - pos(' ', tmp, err) + 1);

     database.id := strtoint(tmp);

     tmp := st;

     delete(tmp, 1, pos(' ', tmp, err));

     database.ball := strtoint(tmp);

     a[i, 0] := database.id;

     a[i, 1] := database.ball;

  end;

  var j: integer := 0;

  assign(t, 'output.txt');

  rewrite(t);

  while (j <= high(a)) do

  begin

     if (j + 1 < high(a)) and (a[j, 1] = a[j + 1, 1]) then

        if (a[j, 0] < a[j + 1, 0]) then begin

           write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');

           write(t, inttostr(a[j + 1, 0])); write(t, ' '); write(t, inttostr(a[j + 1, 1])); writeln(t,'');

        end else begin

           write(t, inttostr(a[j + 1, 0])); write(t, ' '); write(t, inttostr(a[j + 1, 1])); writeln(t,'');

           write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');

        end;

     if (j+1=n) then

        write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');

     inc(j, 2);

  end;

  close(t);

end.

4,7(6 оценок)
Ответ:
SkylloutBrain
SkylloutBrain
14.07.2022
Александр ярославич невский (1221 - 1263) – князь новгородский, киевский, владимирский. был сыном переяславльского князя. в 1225 году в биографии александра невского произошло посвящение в воины. в 1228 году поселился в новгороде, а в 1230 году стал князем новгородских земель. в 1236 году, после отъезда ярослава стал самостоятельно защищать земли от шведов, ливонцев, литовцев. в 1239 году александр женился на дочке брячислава полоцкого, александре. в июле 1240 года состоялась знаменитая невская битва, когда александр напала на шведов на неве и победил. когда же ливонцы взяли псков, тёсов, подобрались к новгороду, александр снова разбил врагов. после этого в своей биографии александр невский напал на ливонцев 5 апреля 1242 года (ледовое побоище на чудском озере). князь на протяжении 6 лет отражал нападения врагов. затем он уехал из новгорода во владимир. когда умер ярослав, святослав, александр невский получил власть в киеве. за всю свою жизнь невский не проиграл ни одного сражения. он был талантливым дипломатом, полководцем, смог защитить русь от многих врагов, а также предотвратить походы монголо-татар. александр невский имел четырех сыновей: василия (1245 – 1271, новгородский князь), дмитрия (1250 – 1294, новгородский, переяславский, владимирский князь ), андрея (1255 – 1304, костромской, владимирский, новгородский, городецкий князь), даниила (1261 – 1303, московский князь), а также дочь евдокию.
4,6(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ