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

Решение от Дмитрия:

использовать Файлы П
алг Array_28 
нач
 цел файл
 цел i, N, NMax
 вещ Min

 NMax:=100

 целтаб arr[1:NMax]

 файл:=открыть на чтение ("Array28.txt")

 N:=0
 вывод "Входные данные: "
 нц пока не конец файла (файл) и N < NMax
  N:=N+1
  Фввод файл, arr[N]
  вывод arr[N], ", "
 кц
 закрыть(файл)

 Min := 0

 если N>1
  то Min:=arr[2]
 все

 нц для i от 4 до N шаг 2
  Min:=min(arr[i], Min)
 кц
 вывод нс, Min, нс
кон

Array28.txt

1 3 6 8 9 10

Другие задачи из раздела Array можно посмотреть здесь.

Array18. Дан массив $$A$$ ненулевых целых чисел размера $$10$$. Вывести значение первого из тех его элементов $$A_K$$, которые удовлетворяют неравенству $$A_K \lt A_{10}$$. Если таких элементов нет, то вывести $$0$$.

Решение от Дмитрия:

использовать Файлы П
алг Array_18 
нач
 цел файл
 цел i
 цел AK
 цел N, NMax


 NMax:=100

 целтаб arr[1:NMax]

 файл:=открыть на чтение ("Array18.txt")

 N:=0

 вывод "Входные данные: "
 нц пока не конец файла (файл) и N < NMax
  N:=N+1
  Фввод файл, arr[N]
  вывод arr[N], ", "
 кц
 закрыть(файл)

 AK:= 0

 i:=1
 нц пока AK=0 и i<N
  если arr[i] < arr[N]
   то AK:=arr[i]
  все
  i:=i+1
 кц
 вывод нс, AK, нс
кон

Array18.txt

50 20 43 8 9 13 15 16 18 21 24 15

Другие задачи из раздела Array можно посмотреть здесь.

Array14. Дан массив $$A$$ размера $$N$$. Вывести вначале его элементы с четными номерами (в порядке возрастания номеров), а затем — элементы с нечетными номерами (также в порядке возрастания номеров): $$A_2, A_4, A_6, …, A_1, A_3, A_5, …$$ . Условный оператор не использовать.

Решение от Дмитрия:

использовать Файлы П
алг Array_14 
нач
 цел файл
 цел i, N, NMax

 NMax:=100

 целтаб arr[1:NMax]

 файл:=открыть на чтение ("Array_14.txt")

 N:=0
 вывод "Входные данные: "
 нц пока не конец файла (файл) 
  N:=N+1
  Фввод файл, arr[N]
  вывод arr[N], ", "
 кц
 закрыть(файл)

 вывод нс

 нц для i от 2 до N шаг 2
  вывод arr[i], ", " 
 кц
 вывод нс

 нц для i от 1 до N шаг 2
  вывод arr[i], ", " 
 кц
кон

Array14.txt

5 2 4 8 9 13 15 16 18 21 24

Другие задачи из раздела Array можно посмотреть здесь.

Array13. Дан массив $$A$$ размера $$N$$ ($$N$$ — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: $$A_N, A_{N-2}, A_{N-4}, …, A_1.$$ Условный оператор не использовать.

Решение от Дмитрия:

использовать Файлы П
алг array13
нач
 цел файл
 цел x
 цел k
 вещ таб a[1:100]
 k:=0
 файл:=открыть на чтение("Array13.txt")
 нц пока не конец файла (файл)
  k:=k+1
  Фввод файл,x
  a[k]:=x
  вывод a[k]," "
 кц
 вывод " ",нс
 если не конец файла(файл) то
   вывод "В файле остались непрочитанные данные", нс
 всё
 закрыть (файл)
 цел i
 нц для i от k до 1 шаг -2
  вывод a[i]," " 
 кц
кон

Array13.txt

23 45 23 14 2 23 11 3 64 124 19

Другие задачи из раздела Array можно посмотреть здесь.

Array8. Дан целочисленный массив размера $$N$$. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а также их количество $$K$$.

Решение от Дмитрия:

использовать Файлы П
алг Array_8 
нач
 цел файл
 цел i, K, a, N, NMAX
 лит RES

 NMAX:=100
 целтаб arr[1:NMAX]
 K:= 0

 файл:=открыть на чтение ("Array8.txt")

 N:=0
 вывод "Входные данные: "
 нц пока не конец файла (файл) и N < NMAX
  N:=N+1
  Фввод файл, arr[N]
  вывод arr[N], ", "
 кц
 закрыть(файл)

 вывод нс, "Нечетные числа: "
 нц для i от 1 до N
  если mod(arr[i],2)<>0 
   то
    вывод arr[i], ", "
    K:=K+1
  все
 кц
 вывод нс, "Количество нечетных элементов: ", K, нс
кон

Array8.txt

5 2 4 8 9 13 15 16 18 21 24 15

Другие задачи из раздела Array можно посмотреть здесь.

Array7. Дан массив размера $$N$$. Вывести его элементы в обратном порядке.

Решение от Дмитрия:

использовать Файлы П
алг array7
нач цел файл
 цел x
 цел k
 вещ таб a[1:1000]
 k:=0
 файл:=открыть на чтение("Array7.txt")
 нц пока не конец файла (файл)
  k:=k+1
  Фввод файл,x
  a[k]:=x
  вывод a[k]," "
 кц
 вывод " ", нс
 если не конец файла(файл) то
  вывод "В файле остались непрочитанные данные", нс
 всё
 закрыть (файл)
 цел i
 нц для i от k до 1 шаг -1
  вывод a[i]," "
 кц
кон

Array7.txt

3 45 6 2 8 4 7 0 3 2 1 5

Другие задачи из раздела Array можно посмотреть здесь.

Array3. Дано целое число $$N (\gt 1)$$, а также первый член $$A$$ и разность $$D$$ арифметической прогрессии. Сформировать и вывести массив размера $$N$$, содержащий $$N$$ первых членов данной прогрессии:

$$A, A + D, A + 2*D, A + 3*D, …$$ .

Решение от Дмитрия:

алг Array_3(арг цел N, вещ A,D)
нач
 цел файл
 цел i

 вещ таб a[1:N]

 нц для i от 1 до N
  a[i]:=A+(i-1)*D
  вывод a[i], " "
 кц
кон

Другие задачи из раздела Array можно посмотреть здесь.

Minmax20. Дано целое число $$N$$ и набор из $$N$$ целых чисел. Найти общее количество экстремальных (то есть минимальных и максимальных) элементов из данного набора.

Решение от Дмитрия:

использовать Файлы П
алг minmax2 (рез цел минимумы, максимумы)
дано
надо
нач
 цел файл
 файл:=открыть на чтение ("minmax20.txt")
 цел a, a_макс, a_мин |a_макс - максимальный элемент,
                     |a_мин - минимальный элемент
 Фввод файл,a
 вывод a,' '
 a_макс:=a; a_мин:=a; максимумы:=1; минимумы:=1
 нц пока не конец файла (файл)
  Фввод файл,a
  вывод a,' '
  выбор
   при a>a_макс: a_макс:=a; максимумы:=1
   при a=a_макс: максимумы:=максимумы+1
   при a<a_мин: a_мин:=a; минимумы:=1
   при a=a_мин: a_мин:=a; минимумы:=минимумы+1
  все
 кц
 закрыть (файл)
 вывод нс
кон

Другие задачи из раздела Minmax можно посмотреть здесь.

Minmax8. Дано целое число $$N$$ и набор из $$N$$ целых чисел. Найти номера первого и последнего минимального элемента из данного набора и вывести их в указанном порядке.

Решение от Дмитрия:

использовать Файлы П
алг поиск минимумов (рез цел минпервый, минпоследний)
дано
надо 
нач
 цел файл
 файл:=открыть на чтение ("minmax8.txt")
 цел a, минимал
 цел K
 Фввод файл, a 
 вывод a
 K:=1
 минпервый:=1
 минпоследний:=1
 минимал:=a
 нц пока не конец файла (файл)
  Фввод файл, a 
  вывод " ",a
  K:=K+1
  если a<минимал то 
    минимал:=a 
    минпервый:=K
  все
  если a=минимал то минпоследний:=K 
  все
 кц 
 закрыть(файл)
 вывод нс
кон

Другие задачи из раздела Minmax можно посмотреть здесь.

Minmax4. Дано целое число $$N$$ и набор из $$N$$ чисел. Найти номер минимального элемента из данного набора.

Решение от Дмитрия:

использовать Файлы П
алг работа с файлом (рез цел Kmin)
нач 
 цел файл
 файл:=открыть на чтение ("minmax4.txt")
 цел a, mini
 цел K
 Фввод файл, a 
 вывод a
 K:=1
 Kmin:=K
 mini:=a
 нц пока не конец файла (файл)
  Фввод файл, a 
  вывод " ",a
  K:=K+1
  если a<mini то 
    mini:=a 
    Kmin:=K
  все
 кц 
 закрыть(файл)
 вывод нс
кон

Другие задачи из раздела Minmax можно посмотреть здесь.