Задачи на массив в Turbo Pascal 1) Определите ,на сколько отличается рост самого высокого и самого низкого учащегося в классе?2) результаты переписи населения, которые хранятся в памяти компьютера. Элемент массива -год рожден...
Задачи на массив в Turbo Pascal
1) Определите ,на сколько отличается рост самого высокого и самого низкого учащегося в классе?
2) результаты переписи населения, которые хранятся в памяти компьютера. Элемент массива -год рождения жителя. Подсчитайте общее число жителей, родившихся раньше 1958 года.
3) С 8 до 20 часов температура воздуха измерялась ежечасно, и результаты измерения заносились в компьютер. Известно, что в течение этого времени температура понижалась. Напишите программу, определяющую, в котором часу была впервые отмечена отрицательная температура
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
var n,i,max,min:integer;
a:array[1..100]of integer;
begin
read(n);
{n-кол-во учащихся}
for i:=1 to n do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if(a[i]>max)then max:=a[i];
if(a[i]
Не нашли ответ?
Похожие вопросы