Ответы Mail.ru
Программирование
Java
JavaScript
jQuery
MySQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Gentleman
Cергей К
Лена-пена
•••
Искусственный Интеллект
Мудрец
Искусственный Интеллект
Помогите!!! Кто разбирается в программировании?
Александра Иванкова
(189),
на голосовании
11 лет назад
Дополнен 11 лет назад
нет в школе ,экзамен завтра а в массивах 0
Голосование за лучший ответ
Artem Klementiev
(3417)
11 лет назад
program 1;
var
a,b,c : integer;
begin
if ((a <= b) and (a <= c)) then Writeln(a);
if ((b <= a) and (b <= c)) then Writeln(b);
if ((c <= b) and (c <= a)) then Writeln(c);
Readln;
end.
program 2;
var
arr : array[1..10] of integer;
i : integer;
min: integer;
begin
{Заполняем массив здесь}
min := arr[1];
for i := 2 to 10 do
if (arr <= min) then
min := arr;
Writeln('Minimal item is: ', min);
Readln;
end.
var
a,b,c : integer;
begin
if ((a <= b) and (a <= c)) then Writeln(a);
if ((b <= a) and (b <= c)) then Writeln(b);
if ((c <= b) and (c <= a)) then Writeln(c);
Readln;
end.
program 2;
var
arr : array[1..10] of integer;
i : integer;
min: integer;
begin
{Заполняем массив здесь}
min := arr[1];
for i := 2 to 10 do
if (arr <= min) then
min := arr;
Writeln('Minimal item is: ', min);
Readln;
end.
Похожие вопросы
Также спрашивают
Написать программу нахождения минимального из трех чисел.
Задача на создание программы обработки табличных величин (поиск в таблице элемента с не-ым свойством)
Дан одномерный действит. массив размерностью 10.Написать программу нахождения наименьшого элемента массива.