ВВЕРХ
ВНИЗ
  • Home
  • Array
  • Array 28 - 29

Array 28 - 29

На этой странице решаются задачи Array28 - Array29 из задачника Абрамяна.

Array28. Дан массив A размера N. Найти минимальный элемент из его элементов с четными номерами:

A2,   A4,   A6, … .


Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
var
  A: array[1..255] of integer;
  N, i, min, k: byte;
begin
  writeln(' Массив какого размера вы хотите задать? ');
  write('  N = ');
  readln(N);
  writeln(' Введите ', N, ' элементов массива(через пробел):');
  write('  ');
  for i := 1 to N do
   read(a[i]);  //Вводим элементы массива
  N := N div 2; //Количество четных номеров массива.
  min := a[2];  //Минимальный элемент
  k := 2;       //и его начальный номер.
  for i := 2 to N do
    if a[2 * i] < min then //Если находится элемент меньше min,
     begin
       min := a[2 * i]; //то он становится минимальным.
       k := 2 * i //Запоминаем номер минимального элемента.
     end;  
  write(' Минимальный элемет среди четных');
  writeln(' номеров равен: a[', k, '] = ', min)
end.

Array29. Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами:

A1,   A3,   A5, … .


Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
var
  A: array[1..100] of integer;
  i, N, max: integer;
  
begin
  write(' N = ');
  readln(N);
  writeln('Введите ', N, ' целых чисел:');
  writeln;
  max := -MaxInt; //минимальное возможное целое число типа integer
 { Вводить элементы массива и находить максимальный 
 из них будем в одном цикле (за один проход): }
  for i := 1 to N do
  begin
    read(a[i]); //вводим i-й элемент массива
    if odd(i) then //если i - нечетный номер
      if a[i] > max then max := a[i] //проверяем число на максимум
  end;
  writeln;
  writeln('Результат: ', max)
end.


Яндекс.Метрика