28. Решение простых задач на массивы.

Задача 1. Заполнить массив из 10 элементов целыми случайными числами в диапазоне от 2 до 5. Найти сумму всех элементов массива.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Sum:=0;

For i:=1 To n Do Sum:=Sum+a[i];

WriteLn(‘Sum=’,Sum);

При этом следует не забыть объявить переменную Sum, сделать n равным 10 и изменить формулу генератора случайных чисел.

В итоге получим следующее:

Program Z1; Const n=10; Var a: Array[1..n] of Integer; i: Integer; Sum: Integer; Begin WriteLn(‘Массив случайных чисел:’); Randomize; For i:=1 To n Do Begin a[i]:=Random(4)+2; Write(a[i]:4); End; WriteLn; Sum:=0; For i:=1 To n Do Sum:=Sum+a[i]; WriteLn(‘Sum=’,Sum); ReadLn; End.

Задача 2. Заполнить массив из 8 элементов целыми случайными числами в диапазоне от -5 до 5. Найти сумму только положительных элементов массива.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Sum:=0;

For i:=1 To n Do If a[i]>0 Then Sum:=Sum+a[i];

WriteLn(‘Sum=’,Sum);

При этом следует не забыть объявить переменную Sum, сделать n равным 8 и изменить формулу генератора случайных чисел на Random(11)-5.

Задача 3. Заполнить массив из 12 элементов целыми случайными числами в диапазоне от -10 до 10. Найти сумму элементов массива c четными значениями..

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Sum:=0;

For i:=1 To n Do If (a[i] mod 2)=0 Then Sum:=Sum+a[i];

WriteLn(‘Sum=’,Sum);

При этом следует не забыть объявить переменную Sum, сделать n равным 12 и изменить формулу генератора случайных чисел на Random(21)-10.

Задача 4. Заполнить массив из 20 элементов целыми случайными числами в диапазоне от -10 до 10. Найти сумму элементов массива cо значениями от 2 до 5.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Sum:=0;

For i:=1 To n Do If (a[i]>=2) And (a[i]<=5) Then Sum:=Sum+a[i];

WriteLn(‘Sum=’,Sum);

При этом следует не забыть объявить переменную Sum, сделать n равным 20 и изменить формулу генератора случайных чисел на Random(21)-10.

Задача 5. Заполнить массив из 20 элементов целыми случайными числами в диапазоне от -5 до 5. Найти количество элементов массива равных 0.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Kol:=0;

For i:=1 To n Do If a[i]=0 Then Kol:=Kol+1;

WriteLn(‘Kol=’,Kol);

При этом следует не забыть объявить переменную Kol, сделать n равным 20 и изменить формулу генератора случайных чисел на Random(11)-5.

Задача 6. Заполнить массив из 10 элементов целыми случайными числами в диапазоне от -5 до 5. Найти количество элементов массива с нечетными значениями.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Kol:=0;

For i:=1 To n Do If (a[i] mod 2)<>0 Then Kol:=Kol+1;

WriteLn(‘Kol=’,Kol);

При этом следует не забыть объявить переменную Kol, сделать n равным 10 и изменить формулу генератора случайных чисел на Random(11)-5.

Задача 7. Заполнить массив из 10 элементов целыми случайными числами в диапазоне от -5 до 15. Найти количество элементов, значения которых по модулю не превышают 3.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Kol:=0;

For i:=1 To n Do If Abs(a[i])<=3 Then Kol:=Kol+1;

WriteLn(‘Kol=’,Kol);

или

Kol:=0;

For i:=1 To n Do If (a[i]>=-3) And (a[i]<=3) Then Kol:=Kol+1;

WriteLn(‘Kol=’,Kol);

При этом следует не забыть объявить переменную Kol, сделать n равным 10 и изменить формулу генератора случайных чисел на Random(21)-5.

Задача 8. Заполнить массив из 20 элементов целыми случайными числами в диапазоне от -5 до 5. Найти каких чисел в массиве больше нулей или пятерок, а может быть их одинаково.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Kol0:=0;

For i:=1 To n Do If a[i]=0 Then Kol0:=Kol0+1;

WriteLn(‘Kol0=’,Kol0);

Kol5:=0;

For i:=1 To n Do If a[i]=5 Then Kol5:=Kol5+1;

WriteLn(‘Kol5=’,Kol5);

IF Kol5>Kol0 Then WriteLn(‘5 больше’);

IF Kol5=Kol0 Then WriteLn(‘5 и 0 одинаково’);

IF Kol5<Kol0 Then WriteLn(‘5 меньше’);

При этом следует не забыть объявить переменные Kol0 и Kol5, сделать n равным 20 и изменить формулу генератора случайных чисел на Random(11)-5.

Задача 9. Заполнить массив из 10 элементов целыми случайными числами в диапазоне от -5 до 5. Найти среднее арифметическое положительных чисел, а если таковых не имеется, то вывести ответ, что таких чисел нет.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Kol:=0;

For i:=1 To n Do If a[i]>0 Then Kol:=Kol+1;

WriteLn(‘Kol=’,Kol);

Sum:=0;

For i:=1 To n Do If a[i]>0 Then Sum:=Sum+a[i];

WriteLn(‘Sum=’,Sum);

IF Kol=0 Then WriteLn(‘положительных чисел нет’);

IF Kol>0 Then Begin Sr:=Sum/Kol; WriteLn(‘Sr=’,Sr:8:4); End;

При этом следует не забыть объявить переменные Kol и Sum целого типа и переменную Sr вещественного типа, сделать n равным 10 и изменить формулу генератора случайных чисел на Random(11)-5.

Задача 10. Заполнить массив из 20 элементов целыми случайными числами в диапазоне от -5 до 5. Найти сумму отрицательных элементов.

Задача 11. Заполнить массив из 10 элементов целыми случайными числами в диапазоне от -5 до 15. Найти среднее арифметическое отрицательных элементов, если таковые имеются.

Задача 12. Заполнить массив из 8 элементов целыми случайными числами в диапазоне от 1 до 5. Найти количество нечетных элементов.

Задача 13. Заполнить массив из 6 элементов целыми случайными числами в диапазоне от 0 до 2. Найти количество единиц и двоек. Ответить на вопрос чего больше единиц или двоек.

Задача 14. Заполнить массив из 20 элементов целыми случайными числами в диапазоне от -5 до 5. Найти каких элементов больше положительных или отрицательных. Ноль считать положительным.

Задача 15. Заполнить массив из 10 элементов целыми случайными числами в диапазоне от 0 до 9. Найти сумму элементов делящихся на 3 без остатка.

Задача 16. Заполнить массив из 10 элементов целыми случайными числами в диапазоне от 2 до 5. Отдельно найти количество двоек, троек, четверок и пятерок.

Задача 17. Заполнить массив из 20 элементов целыми случайными числами в диапазоне от 0 до 8. Найти среднее арифметическое нечетных элементов, если таковые имеются.

Задача 18. Заполнить массив из 6 элементов целыми случайными числами в диапазоне от 0 до 1. Найти чего больше нулей или единиц, или их одинаково.