Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Помогите!!! Кто разбирается в программировании?
Александра Иванкова
(189),
на голосовании
14 лет назад
Дополнен 14 лет назад
нет в школе ,экзамен завтра а в массивах 0
Голосование за лучший ответ
Artem Klementiev
(3427)
14 лет назад
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.Написать программу нахождения наименьшого элемента массива.