Вторник, 22.01.2019, 14:02
Приветствую Вас Гость | RSS

Сайт учителя информатики Швец Елены Петровны

Наш опрос
Как вы используете Интернет для подготовки к урокам?
Всего ответов: 12
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Сетевой этикет

Нахождение максимального и минимального элементов массива

Нахождение максимального и минимального элементов массива

Задание 1. Разберите программу, которая запол­няет массив а [1..10] случайными целыми числа­ми в диапазоне от 0 до 20 и находит максималь­ный элемент массива и его индекс.

program primer;
var a:array[1..10] of integer;
i,k,max:integer;
begin
 for i:=1 to 10 do    {заполнение массива случайными целыми числами от 0 до 20}
  a[i]:=random (21);
  
 writeln ('Исходный массив:');     {вывод полученного массива на экран}
 for i:=1 to 10 do
  write (a[i],' ');
  
writeln;  {переход на новую строку}

max:=a[i];k:=1;             {нахождение максимального элемента и его индекса}
for i:=1 to 10 do
 if a[i]>max then
   begin
    max:=a[i];
    k:=i
   end;
writeln ('Максимальный элемент =', max);
writeln ('Индекс максимального элемента =', k);
end.

Задание 2. Составьте программу, которая запол­няет массив а [1..10] случайными целыми числа­ми в диапазоне от 1 до 20 и находит минималь­ный элемент массива и его индекс.

Задание 3. Оценки в соревнованиях по фигур­ному катанию выставляются 9 судьями. Потом одна самая низкая и одна самая высокая оценки отбрасываются и в зачет идет среднее арифмети­ческое оставшихся оценок. Составьте програм­му, которая определяет зачетную оценку спорт­смена. Оценки судей ввести с клавиатуры (целые числа от 1 до 6).

 

Вход на сайт
Поиск
Календарь
«  Январь 2019  »
ПнВтСрЧтПтСбВс
 123456
78910111213
14151617181920
21222324252627
28293031
Часы

Погода
Яндекс.Погода

Copyright MyCorp © 2019
uCoz