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

Заполнить таблицу топология сетей и отличительные особенности


Заполнить таблицу топология сетей и отличительные особенности

Показать ответ
Ответ:
ПЯTA4OK
ПЯTA4OK
03.11.2022 08:27

program GradesFinder;

var

 grades: array[Integer] of Integer;

 gradesCounter: array[3..5] of Integer = (0,0,0);

 gradesSum: Integer = 0;

 mostCommonGradeCounter: Integer = 0;

 mostCommonGrade: Integer = 0;

 i: Integer;

 

begin

 Randomize;

 

 writeln('Оценки учеников:');

 for i:=0 to 19 do

 begin

   grades[i] := 3 + Random(3);

   writeln(i+1,': ',grades[i]);

   gradesCounter[grades[i]] := gradesCounter[grades[i]] + 1;

   gradesSum := gradesSum + grades[i]

 end;

 

 writeln('Число отметок 5: ', gradesCounter[5]);

 writeln('Средний бал: ', gradesSum/20:2:1);

 write('Болше всего получено: ');

 

 for i := 3 to 5 do

   if mostCommonGradeCounter < gradesCounter[i] then

   begin

     mostCommonGrade := i;

     mostCommonGradeCounter := gradesCounter[i];

   end;

   

 writeln(mostCommonGrade);

end.

Объяснение:

0,0(0 оценок)
Ответ:
nurik01viper
nurik01viper
27.02.2023 11:57

program Arrays;

var

 input: array[Integer] of Integer;

 i: Integer;

 largestElement: Integer = 0;

 smallestElement: Integer = 999;

 smallestElementPosition: Integer = 18;

 

begin

 Randomize;

 

 for i:=0 to 18 do

   input[i] := Random(700);

 writeln('Весь массив:');

 

 for i:=0 to 18 do

 begin

   writeln(i, ': ', input[i]);

   

   if largestElement < input[i] then

     largestElement := input[i];

   if smallestElement > input[i] then

   begin

     smallestElement := input[i];

     smallestElementPosition := i;

   end;

 end;

 writeln('Наибольший элемент массива:', largestElement);

 writeln('Позиция наименьшего элемента:', smallestElementPosition);

end.

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