В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
RassvetZaGorami
RassvetZaGorami
14.07.2020 00:32 •  Информатика

ИНФОРМАТИКА! 7 КЛАСС! ЗАДАНИЕ ВО ВЛОЖЕНИИ!


ИНФОРМАТИКА! 7 КЛАСС! ЗАДАНИЕ ВО ВЛОЖЕНИИ!
ИНФОРМАТИКА! 7 КЛАСС! ЗАДАНИЕ ВО ВЛОЖЕНИИ!
ИНФОРМАТИКА! 7 КЛАСС! ЗАДАНИЕ ВО ВЛОЖЕНИИ!

Показать ответ
Ответ:
polinka2002761
polinka2002761
31.05.2020 11:59
Const
  n = 6;

var
  b: array[1..n, 1..n] of integer;
  a: array[1..n] of integer;
  i, j, s1, s2, max: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  //max := -777; {заведомо меньше меньшего}
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      b[i, j] := Random(101) - 50;
      Write(b[i, j]:4)
    end;
    Writeln
  end;
 
  s1 := 0; s2 := 0;
  for i := 1 to n do begin s1 := s1 + b[1, j]; s2 := s2 + b[j, j] end;
  if s1 > s2 then begin
    Writeln('Сформированный массив');
    for i := 1 to n do
    begin
      max := b[i, 1];
      for j := 2 to n do if max < b[i, j] then max := b[i, j];
      a[i] := max;
      Write(max:4)
    end
  end
  else begin
    s1 := 0; s2 := 0;
    for i := 1 to n do
      for j := 1 to n do
        if b[i, j] > 0 then s1 := s1 + b[i, j]
        else s2 := s2 + b[i, j];
    Writeln('Среднее арифметическое положительных элементов= ', s1/n);
    Writeln('Среднее арифметическое отрицательных элементов= ', s2/n);
  end
end.

Тестовые решения:
Исходный массив
 -32  38 -10  42 -30 -35
 -13 -22  14  -2 -42   0
 -38  18  29  39 -26  19
  15  23  -4 -31  21   8
 -36  13 -26  -6 -13 -10
 -11  38  40  11 -10 -22
Среднее арифметическое положительных элементов= 61.3333333333333
Среднее арифметическое отрицательных элементов= -69.8333333333333

Исходный массив
 -37 -22  38  25 -23  21
 -33 -50  32  42  -1   7
   9  29  -9  21  29  -4
  50  13 -33 -13 -47  10
  25  46  18  47  15  48
 -48  12 -39  -8  34  14
Сформированный массив
  38  42  29  50  48  34
0,0(0 оценок)
Ответ:
severin4568
severin4568
01.11.2021 03:58

Файлдық вирустар көбінесе бағдарламалардың орындалатын модульдеріне енеді (бағдарлама іске қосылатын файлдар), бұл оның жұмысына әсер ететін, бағдарлама іске қосылған сәтте оларды іске қосуға мүмкіндік береді. Әдетте, файлдық вирустар операциялық жүйеге немесе бағдарламалық жасақтама кітапханаларына, орындалатын пакеттік файлдарға, Windows тізілім файлдарына, сценарий файлдарына және драйвер файлдарына енуі мүмкін. Инъекцияны шабуыл жасалған файлдың кодын өзгерту арқылы немесе оның өзгертілген көшірмесін жасау арқылы жүзеге асыруға болады. Осылайша, файлдағы вирус қолданушы немесе ОС өзі бастаған осы файлға қол жеткізген кезде іске қосылады. Файлдық вирустар - компьютерлік вирустың ең көп таралған түрі.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота