Задания.ру
Анонимно
2 часа назад

написать программу которая выводит минимальный элемент введенного с клавиатуры массива целых чисел

Ответ

Анонимно
Program al;
var a: array[1..100] of integer;
 buf:integer;
 i,n,min:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
min:=a[1];
 for i:=1 to n do
 if a[i]<min then min :=a[i];
writeln('mn=', min);
readln;
end.

Новые вопросы по Информатике

Определи значение переменной a после выполнения фрагмента алгоритма при a=5 и a=14. Ввод а если a&gt;5 то a:=a+20 иначе a:=a*10 всё Ответ: при a=5 значение переменной a равно (.........) , при a=14...
5 - 9 классы
3 минуты назад
Пользователь работал с каталогом Поэты.Сначала он поднялся на один уровень вверх,затем спустился на один уровень вниз,потом еще раз спустился на один уровень вниз. В результате он оказался в каталоге...
5 - 9 классы
4 минуты назад
Нужно поменять местами макс. и мин. значения. Что не так? PROGRAM MATRICA; USES CRT; CONST N=3; M=4; A=-20; B=20; VAR I, J, MIN, MAX, T: INTEGER; Y:ARRAY [1..N, 1..M] OF INTEGER; BEGIN CLRSCR;...
10 - 11 классы
4 минуты назад
Усовершенствуйте программу ТablMul таким образом, чтобы в результате выводилась оценка, поставленная ученику. Критерии для выставления оценок придумайте сами. Помогите пожалуйста!!! Буду очень рада!)...
5 - 9 классы
6 минут назад
Что такое портативный компьютер
5 - 9 классы
7 минут назад