Задача для Pascal. Даны среднесуточные температуры в феврале месяце (от -23.5 до +9.7), вывести их на экран, вывести количество дней когда температура была выше 0.
Несколько лет тому назад в одном из своих поместий жил старинный русский барин, Кирила Петрович Троекуров. Его богатство, знатный род и связи давали ему большой вес в губерниях, где находилось его имение. Соседи рады были угождать малейшим его прихотям; губернские чиновники трепетали при его имени; Кирила Петрович принимал знаки подобострастия как надлежащую дань; дом его его его егок его его всегда был полон гостями, готовыми тешить его барскую праздность, разделяя шумные, а иногда и буйные его увеселения. Никто не дерзал отказываться от его приглашения или в известные дни не являться с должным почтением в село Покровское. В домашнем быту Кирила Петрович выказывал все пороки человека необразованного. Избалованный всем, что только окружало его, он привык давать полную волю всем порывам пылкого своего нрава и всем затеям довольно ограниченного ума. Несмотря на необыкновенную силу физических , он раза два в неделю страдал от обжорства и каждый вечер бывал навеселе. В одном из флигелей его дома жили шестнадцать горничных, занимаясь рукоделиями, свойственными их полу. Окны во флигеле были загорожены деревянною решеткою; двери запирались замками, от коих ключи хранились у Кирила Петровича. Молодые затворницы в положенные часы сходили в сад и прогуливались под надзором двух старух. От того времени
write('Введите число: '); readln(n); // ввод числа n
for i := 1 to 3 do
for j := 1 to 4 do begin
arr[i, j] := random(100); // заполнение массива случайными числами от 0 до 100
if arr[i, j] > n then // если число больше заданного числа, то...
count += 1; // увеличиваем значение переменной count на 1
end;
writeln('Массив: ', arr); // вывод массива
writeln('Чисел, больше ', n, ': ', count); // вывод кол-ва элементов, больше n.
end.
Чтобы заполнить массив, для начала нужно выделить ему память. После этого запрашивает значение "заданного числа" n. После выделения памяти и запроса числа нужно в двойном цикле обойти все ячейки массива (i - номер строки, j - номер столбца). После начала цикла сначала заполняем массив случайными числами (от 0 до 100), а после находим количество элементов, больше заданного числа. В конце выводим сам массив и кол-во элементов, больше заданного числа.
Несколько лет тому назад в одном из своих поместий жил старинный русский барин, Кирила Петрович Троекуров. Его богатство, знатный род и связи давали ему большой вес в губерниях, где находилось его имение. Соседи рады были угождать малейшим его прихотям; губернские чиновники трепетали при его имени; Кирила Петрович принимал знаки подобострастия как надлежащую дань; дом его его его егок его его всегда был полон гостями, готовыми тешить его барскую праздность, разделяя шумные, а иногда и буйные его увеселения. Никто не дерзал отказываться от его приглашения или в известные дни не являться с должным почтением в село Покровское. В домашнем быту Кирила Петрович выказывал все пороки человека необразованного. Избалованный всем, что только окружало его, он привык давать полную волю всем порывам пылкого своего нрава и всем затеям довольно ограниченного ума. Несмотря на необыкновенную силу физических , он раза два в неделю страдал от обжорства и каждый вечер бывал навеселе. В одном из флигелей его дома жили шестнадцать горничных, занимаясь рукоделиями, свойственными их полу. Окны во флигеле были загорожены деревянною решеткою; двери запирались замками, от коих ключи хранились у Кирила Петровича. Молодые затворницы в положенные часы сходили в сад и прогуливались под надзором двух старух. От того времени
Программа:
Pascal:
var
arr: array[1..3, 1..4] of integer;
i, j, n, count: integer;
begin
write('Введите число: '); readln(n); // ввод числа n
for i := 1 to 3 do
for j := 1 to 4 do begin
arr[i, j] := random(100); // заполнение массива случайными числами от 0 до 100
if arr[i, j] > n then // если число больше заданного числа, то...
count += 1; // увеличиваем значение переменной count на 1
end;
writeln('Массив: ', arr); // вывод массива
writeln('Чисел, больше ', n, ': ', count); // вывод кол-ва элементов, больше n.
end.
Чтобы заполнить массив, для начала нужно выделить ему память. После этого запрашивает значение "заданного числа" n. После выделения памяти и запроса числа нужно в двойном цикле обойти все ячейки массива (i - номер строки, j - номер столбца). После начала цикла сначала заполняем массив случайными числами (от 0 до 100), а после находим количество элементов, больше заданного числа. В конце выводим сам массив и кол-во элементов, больше заданного числа.