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

написать встроенные функции ФОТКА ПРИЛАГАЕТСЯ
1. Сколько учеников сдали экзамен по математике ниже, чем на отметку а экзамены по русскому и иностранному языку на отметку ответ на этот во запишите в ячейку H2 таблицы. Учтите, что ученики могли сдавать не все экзамены.
2. Каков средний учеников 3 класса по русскому языку? Учтите, что некоторые ученики не сдавали этот экзамен. ответ с точностью до двух знаков после запятой запишите в ячейку H3 таблицы.
3. Постройте круговую диаграмму, отображающую соотношение числа участников экзамена из 5, 8 и 9 классов. Левый верхний угол диаграммы разместите вблизи ячейки G6.
4. Сколько учеников сдали экзамен по математике на отметку но получили средний по всем сданным экзаменам ниже, чем ответ на этот во запишите в ячейку H2 таблицы. Учтите, что ученики могли сдавать не все экзамены.
5. Каков средний учеников 4 класса по математике? Учтите, что некоторые ученики не сдавали этот экзамен. ответ с точностью до двух знаков после запятой запишите в ячейку H3 таблицы.
6. Постройте круговую диаграмму, отображающую соотношение числа участников экзамена из 1, 5 и 9 классов. Левый верхний угол диаграммы разместите вблизи ячейки G6.​

Показать ответ
Ответ:
acherevachanna
acherevachanna
10.06.2022 04:10
Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и  объявить массивы можно как целые. Но это мелочи, не обязательные.
var    
a, b: array[1..20]of integer;  
  i, s,n: integer;    
begin  
   writeln('Массив А:');
   randomize;     
   for i := 1 to 20 do  
     begin     
     a[i] := random(100) - 50;
     write(a[i],' ');     
     if (a[i] > 0) and (i mod 2 = 0) then
        begin
        n:=n+1;   
        b[n]:= a[i];        
        s := s + b[n] * b[n];  
        end;
     end;
   writeln();
   writeln('Массив В:');
   for i:=1 to n do write(b[n]);
   writeln;
   writeln('S = ', s);
end.
0,0(0 оценок)
Ответ:
ivanova7nastya1
ivanova7nastya1
31.08.2022 03:49
Const
  destinations = 'СЗЮВСЗЮВСЗЮВ';    {Предварительно сформированная строка ориентаций}
var
  C : char;
  N1, N2, Position : integer;
begin
  write('Исходная ориентация локатора: ');
  readln(C);
  write('Первая команда поворота: ');
  readln(N1);
  write('Вторая команда поворота: ');
  readln(N2);
  Position := Pos(C, destinations) + 4;   {Устанавливаем позицию на положение заданного направления}
  Position := Position + N1; {Направление после первого поворота (Определяется destinations[Pos])}
  Position := Position + N2; {Направление после второго поворота (Определяется destinations[Pos])}
  writeln('Конечная ориентация: ', destinations[Position]);
end.  
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота