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

Даны сведения учащихся класса (10 человек ),включающие оценки в течение одного месяца по математике.Подсчитайте количество пятёрок,четвёрок, двоек,троек(СЧЁТЕСЛИ),найдите средний каждого ученика и средний всей группы (СРЗНАЧ).Создать диаграмму ,иллюстрирующую процентное соотношение оценок в группе.

Показать ответ
Ответ:
daha77
daha77
24.01.2020 05:04
В каталоге уровень "вверх" означает движение к корневому каталогу, "вниз - от корневого. Обозначим движение "вверх" через уровень+1, "вниз" - через уровень-1. Получаем смещение относительно исходного уровня, равное +1-1-1-1=-2.
Если в результате пользователь оказался в каталоге C:\учеба\информатика \ ГИА, то изначально он должен был находиться на два уровня выше, т.е. в каталоге C:\учеба
К сожалению, такого варианта в ответах нет, следовательно, либо неверно условие, либо ошибка в вариантах ответов.
0,0(0 оценок)
Ответ:
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 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота