сервис вопросов и ответовНайти минимальный элемент и номер первого минимального элемента массива из 10 элементов. Массив считывается из файла, результат дописывается в этот же
10-11 класс|
|
файл.
Mariia1999
06 нояб. 2015 г., 2:19:14 (8 лет назад)
яжевичечка
06 нояб. 2015 г., 4:13:27 (8 лет назад)
в той же папке, где будет программа, создаете два блокнота, называете input и output
a:array[1..10000] of integer;
i, k, min, imin:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt'); { если в тот же, то assign(input,'input.txt');
rewrite(output); rewrite(input);}
for i:=1 to 10 do
read(a[i]);
min:=a[1];
for i:=1 to 10 do
if min>a[i] then begin min:=a[i]; imin:=i; end;
writeln;
writeln(min,' ', imin);
end.
задание вписать в тот же файл делаю впервые, поэтому за правильность вывода не отвечаю.
Ответить
Другие вопросы из категории
Помогите решить (ДО ЗАВТРА) 2) Запишите фрагмент циклического алгоритма, если параметр цикла принимает: a) все целые
значения от 6 до 25;
б) все четные значения от 20 до 38;
в) все значения от 50 до 10 с шагом -1.
Запишите, чему равно количество повторений, при выполнении циклов а),б) ,в).
3) Задана программа:
Program pr1;
Var n,i,w : integer;
Begin
n:=3;
for i:=1 to 15 do
begin
w:=i+2*n;
writeln (i,w);
end;
readln;
end.
Запишите, что появиться на экране в результате выполнения программы?
4) Составьте блок-схемы к задаче №3.
5) Используя оператор цикла, написать программу печати таблицы умножения на 3.
Римская головоломка . Представьте, что с помощью спичек выложены примеры с римскими цифрами. Эти примеры решены неверно. Перенесите только по одной
спичке, чтобы решение стало правильным.
VII - V = XI
IX - V = VI
VI - IX = III
VII - III = IX
Читайте также
1. Написать программу, которая выводит на экран сумму средних арифметических значений двух вещественных массивов из 10 элементов.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое нечетных элементов массива с нечетными
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
Паскаль,помогите!!! В числовом массиве из 10 элементов, заданных случайным образом от -100 до 500. Найти: 1) сумму положительных элементов,
стоящих на чётных местах; 2) произведение элементов массива, кратных 3 и стоящих на нечётных местах;
дан массив из семи элементов написать программу подсчитывающую
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
Вы находитесь на странице вопроса "Найти минимальный элемент и номер первого минимального элемента массива из 10 элементов. Массив считывается из файла, результат дописывается в этот же", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.