Примеры решения задач. 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. Все результаты вывести на экран дисплея.

Не нашли, что искали? Воспользуйтесь поиском: