1. (Проверять тексты задач не нужно, только изучить!!!!!!!)
Ввод / вывод значений элементов массива:
ü заполнение элементов массива с клавиатуры, вывод в столбик:
program zadacha (input, output);
var
a: array [1 ..10] of real;
i:integer;
begin
for i:=1 to 10 do
begin
writeln (‘введите ‘ ,i, ’элемент массива’);
readln (a[i]);
writeln (‘A(‘, I,’)=’ ,a[i] ) ;
end;
end.
ü заполнение элементов массива по формуле:
program zadacha (input, output);
var
a: array [1 ..10] of real;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=(i*i+1)/sin(i);
writeln (‘A(‘, I,’)=’ , a [i] ) ;
end;
end.
ü заполнение элементов массива случайным образом (генератор случайных чисел):
program zadacha (input, output);
var
a: array [1 ..10] of real;
i:integer;
begin
randomize;
for i^=1 to 10 do
begin
a[i]:=random(30);
writeln (‘A(‘, I,’)=’ , a [i] ) ;
end;
end.
2. Найти сумму элементов массива, кратных заданному числу. Предыдущее решение изменится незначительным образом. Добавляется описание еще одной переменной для хранения значения числа, на кратность которому проверяются значения элементов массива. Появляются операторы
WriteLn ('Введите число ');
ReadLn (k);
и изменяется оператор из тела цикла
If A[i] Mod k = 0 Then s:=s+A[i];
П p и м е ч а н и е
He забудьте изменить значение константы n. Вводить при каждом
запуске программы 30чисел — утомительное занятие.
Изменить программу так, чтобы определялось количество положительных и отрицательных элементов в данном массиве. Суть основного изменения программы заключается во введении двух переменных (счетчиков — pos, neg) для хранения значений количества положительных и отрицательных элементов в массиве. Найдите местонахождение в программе следующих строк программного кода:
pos, neg: Integer;
роs:=0; neg:=0;
If A[ i ] >0 Then Inc(pos) Else If A[ i ]<0 Then
Inс (neg) ;
Wri teLn (pos : 4 , neg: 4) ;
Данная программа не решает задачу нахождения и количества нулевых элементов в массиве. Проведите ее модификацию и для решения этой задачи.
Изменить программу так, чтобы в массив В записывались номера четных элементов массива А. Введение массива В и работа с ним требует введения переменной (j) для обращения к элементам В. Суть решения заключается в просмотре элементов массива А (это мы умеем), выявлении четных элементов и записи их номеров по текущему значению переменной j в массив В.
Program Му10_1;
Const n=10;
Type
MyArray=Array[1..п] Of Integer;
Var
А, В: MyArray;
i, i: Integer;
Begin
WriteLn ('Введите ',n, ' чисел');
For i:=1 To n Do
ReadLn (A [i ]);
j:=0;
For i:=1 To n Do
If A [i ]Mod 2 = 0 Then
Begin Inc (j) ;
B [ j ] : =i ;
End;
For i: = 1 To j Do Write(B[i]:3);
WriteLn ;
ReadLn;
End.
Задания для самостоятельной работы:
Каждая задача 1 балл, степень сложности по возростанию!!!!!!!!
1. Дан массив А, состоящий из 10 элементов, значения которого вводятся с клавиатуры. Подсчитать сколько элементов массива имеют значения меньше некоторой величины t.
2. Дан массив А, состоящий из 10 элементов, значения которого вводятся с помощью генератора случайных чисел. Подсчитать сколько элементов массива имеют значения больше некоторой величины t.
3. Дан массив А(30), заполненый датчиком случайных чисел. Найти экстремумы - наименьшее и наибольшее значение элементов массива.
4. Дан массив А(40), поменять местами 1 й элемент с последним элементом, 2 – ой элемент с предпоследним и т.д.
5. Дан массив Х(20), заполненый случайным образом в диапазоне от – 50 до 49 включительно. Сформировать новый массив из десяти первых положительных элементов масива Х.
6. Дан массив А(20), заполненый случайным образом. Отсортировать данный массив по возростанию элементов.
7. Дан массив, состоящий из 20 элементов. Произвести вставку числа 10 в позицию m данного массива. Позиция m должна соответствовать диапазону от 1 до n.
