Написать программу на паскале: У юного фермера Тимы 5 кроликов. Определите минимальный вес кроликов(вес каждого задать произвольно)
5-9 класс
|
var a: array [1..5] of real;
i: integer;
min: real;
begin
min:=1000;
for i:=1 to 5 do begin
readln(a[i]);
if a[i]<min then min:=a[i];
end;
writeln('Минимальный вес равен ',min);
end.
Другие вопросы из категории
количество полных саженей, аршинов, пядей и вершков.
алг пример
цел a,b,c
нач
ввод a,b
если a>0 то
если b>0 то
c:=a+b
иначе
c:=10
кв
иначе
если b>0 то
c:=a*b
иначе
c:=0
кв
кв
вывод c
кон
сколько бит информации содержит сообщение объемом 2 Кбайт? в ответе укажите одно число.
автобусом, 5 – и троллейбусом, и автобусом. Сколько одноклассников ежедневно пользуется всеми тремя видами транспорта?
Читайте также
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!