tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести с клавиатуры массив
Ввести с клавиатуры массив из 7 элементов,найти в нём минимальный элемент и его номер.вывести массив в обратном порядке
snysor
3 22.08.2019 19:40
0
Ответы
тикон3
05.10.2020 13:15
Program znanija;
const n = 7;
var
a:array[1..n] of integer;
mini, min, i, b:integer;
begin
mini := 1;
write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin
read(b);
a[i] := b;
if i = 1 then min := b;
if b < min then
begin
min := b;
mini := i;
end;
end;
write('Массив в обратном порядке: ');
for i := n downto 1 do
write(a[i], ' ');
writeln();
write('Минимальный элемент массива ', min, ', его номер ', mini);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
PølîñA666
19.06.2019 03:00
1)вы подошли к светофору, когда горел желтый цвет. после этого загорелся зеленый. какое количество информации вы при этом получили? я ответила, что всего 2 варианта. оба можно...
laura103
22.05.2019 12:20
Написать программу на языке паскаль. вводятся размер и элементы одномерного массива a(n), состоящего из целых чисел. подсчитать сумму простых чисел, оканчивающихся на 3. результат...
apiloota
22.05.2019 12:20
Напишите программу,которая анализирует человека по возрасту и относит к одной из пяти групп: дошкольник,школьник,студент,работник,пенсионер.возраст вводится с клавиатуры.используйте...
ДаРуСя10
22.05.2019 12:20
Дано натуральное число n. вычислить произведение его цифр. на паскале....
4444asas
22.05.2019 12:20
Дано натуральное число n и массив натуральных чисел а, заданных случайным образом из диапазона от 30 до 60. найти минимальный элемент и его номер. решить для n=10. на паскале....
НастяStar1
22.05.2019 12:20
Дано натуральное число n и последовательность а1, а2, натуральных чисел, заданных случайным образом из диапазона [3; 100]. умножить все элементы этой последовательности, кратные...
Kros228volk225
22.05.2019 12:20
Дано натуральное число n и последовательность а1, натуральных чисел, заданных с клавиатуры. определить количество и сумму элементов этой последовательности, имеющих чётные порядковые...
Stefalove
18.11.2020 05:10
Я не понимаю как это сделать! Что значит вывести квадрат из чисел в паскале 1) вертикальной разверткой 2) горизонтальной разверткой 3) змейкой Напишите пример...
Jirnyi
18.11.2020 05:01
В таблицах приведено среднее время передачи сообщения между компьютерами. Пустая ячейка таблицы означает, что между соответствующими компьютерами нет прямого канала связи. Сообщение...
araydaribayaray
18.11.2020 04:58
В таблице приведено расписание полетов самолетов между аэропортами А, В, С, D. Пассажир в 6:00 находится в аэропорту С. Ему надо попасть в А. Определите самое раннее время, когда...
Популярные вопросы
Раскройте скобки, употребляя глаголы в presentperfectили pastindefinite. 1....
3
Определите,с какой силой воздух давит на крышу дома резмером 20м на 50м при...
3
Подчеркнуть в каждом из предложении модальный глагол или его эквивалент 1....
2
Раскройте скобки, употребляя глаголы в presentperfectили pastindefinite. 1.she...
3
Хрюша, степашка и каркуша варили компот. хрюша положил 2 кружки малины, степашка...
1
Найти интеграл от (1/(cosx*sin^5x))dx...
1
Задайте к данным предложениям по три вопроса : общий и два специальных. ....
3
Во дворе гуляли 14 кур, 3 индюка, 5 поросят, 4 гуся, 1 петух и 7 уток. покормить...
3
На двух проводящих нитях подключённых кисточнику тока подвешена медная пружина....
1
Втреугольнике abc угол c равен 74 градуса , ad и be – биссектрисы, пересекающиеся...
2
const n = 7;
var
a:array[1..n] of integer;
mini, min, i, b:integer;
begin
mini := 1;
write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin
read(b);
a[i] := b;
if i = 1 then min := b;
if b < min then
begin
min := b;
mini := i;
end;
end;
write('Массив в обратном порядке: ');
for i := n downto 1 do
write(a[i], ' ');
writeln();
write('Минимальный элемент массива ', min, ', его номер ', mini);
end.