Задача 74942 1. Дан одномерный массив, состоящий из N...

64c75b82b635261bba022a6f

12/20/2023 8:16:23 PM

1. Дан одномерный массив, состоящий из N целочисленных элементов. Ввод массива осуществляется с клавиатуры. Требуется найти минимальный элемент и вывести индекс минимального элемента на экран.
2. Дан массив целых чисел. Необходимо переписать все положительные элементы во второй массив, а остальные элементы - в третий.

626fab9a354ab65fb2f43abb

12/20/2023 8:37:13 PM

★

Алгоритмы.
1) Дан одномерный массив из N целых эл-тов.
Ввести его с клавиатуры, найти минимальный элемент.
Вывести его номер на экран.
Начало. Объявляем массив A(N) целого типа
Цикл от 1 до N.
Вводим каждый элемент A(i).
Конец цикла.
Объявляем Min = A(1), k = 1
Цикл от 2 до N.
Если A(i) < Min, то
Min = A(i), k = i
Конец Если
Конец цикла.
Выводим номер минимального элемента k на экран.
Конец программы.

2) Дан одномерный массив целых чисел A1(N)
Найти все эл-ты > 0 и переписать в A2(N).
Остальные элементы переписать в A3(N).
Начало. Объявляем массивы A1(N), A2(N), A3(N) целого типа
Цикл от 1 до N.
Вводим каждый элемент A1(i).
Конец цикла.
m = 0; n = 0
Цикл от 1 до N.
Если A1(i) > 0, то
m = m + 1
A2(m) = A1(i)
Иначе
n = n + 1
A3(n) = A1(i)
Конец Если
Конец цикла.
Цикл по i от 1 до m
Выводим массив A2
Конец цикла.
Цикл по i от 1 до n
Выводим массив A3
Конец цикла.
Конец программы
Программы я могу написать, но не вижу смысла.
Я пишу на Visual Basic, других языков не знаю.
А вам наверняка надо на другом языке.