Примеры решения задач. 1. Информация о количестве выпавших в течение месяца осадков задана в виде мас­сива

1. Информация о количестве выпавших в течение месяца осадков задана в виде мас­сива. Определить :

• общее количество осадков ча месяц;.

• сколько раз в течение месяца температура опускалась ниже 0 градусов?

• температура скольких дней за месяц была ниже среднемесячной?

Решение:

Дано: массив средних суточных температур (например, ча декабрь);

Результат: количество дней, в которые температура опускалась ниже среднемесячной.

program pr4;

type

{ объявление ТИПА массива средней суточной}

{ температуры воздуха за месяц декабрь, в декабре 31 день } mas^arrayt I.. 31 ] of real;

var a:mas; {Объявление переменной а типа массив } i:integer; {I- индекс массива, параметр цикла} k:integer; {k- количество дней, в которые температура}

{опускалась ниже 0 градусов} s:real; {s-среднемесячная температура воздуха} begin

for i:=l to 31 do { заполнение массива с клавиатуры} begin

ут1е1п('введите среднюю суточную температуру за ',i, ' день месяца');

readln(a[i]);

end;

{определение суммарной температуры за декабрь - s } s:=0; {начальное значение для суммарной температуры }

{определение суммарной температуры за декабрь } for i:=l to 31 do s^s+a^j;

{определение среднемесячной температуры за декабрь} s:=s/31;

\угЬе1п('среднемесячная температура за декабрь = *,s:3:1, ' градусов Цельсия');

{определяем, температура скольких дней } {была ниже среднемесячной} k:=0;

for i:=l to 31 do

ifa[i]<sthenk:=k+l;

writeln('TeMnepaTypa ',k,' дней декабря была ниже ",s:3:l, ' градусов Цельсия');

end.

2. В магазине продаются детские игрушки. Сколько стоит самая дорогая игрушка? (Пусть в магазине 10 наименований игрушек)

Решение:

program pr5;

type mas=array fl..l0] of real;

mas 1 ^ array |1..10] of string) 20];

var a:mas; {массив цен}

b:masl; {массив названий игрушек}

k:integer; {счетчик количества игрушек и массиве}

n:integer; {индекс самой дорогой игрушки}

i:inlcger; {параметр цикла}

х:геа1; {переменная, для запоминания цены игрушки } begin

{заполнение массива названий игрушек} fori:-l to 10 do begin \уп1е1п('введите название ',i,' игрушки');

readln(b[i]);

end;

{заполнение массива цен} fori:=ltol0do begin ут1е1п('введите цену для игрушки ',b[i],' в рублях');

readln(a[ij);

end;

{определение самой дорогой игрушки} x:=a[l];k:=2;n:=l;

while k<= 10 do begin ifa[k]>x then begin x:=a[kj; n:=k end;

k:=k+l;

end;

writeln('caMan дорогая игрушка ',b[n],'. Она стоит ',х:4:1, ' рублей.');

end.

Какие изменения требуется произвести в описании алгоритма поиска наибольшего элемента в массиве, чтобы осуществить поиск наименьшего? Как определить индекс наименьшего элемента?

Упражнение 17.

Создать массив целых случайных чисел. Размер массива - 10.

1. Определить количество отрицательных элементов массива.

2. Уменьшить каждый элемент массива на 5.

3. Определить сумму положительных чисел.

4. Заменить отрицательные элементы их модулями.

5. Все результаты вывести на экран дисплея.