- •Задание 2.
- •Задание 3.
- •Задание 4.
- •1. Дан массив а(n), сформированный датчиком случайных чисел на интервале (-50; 150). Из элементов массива а, кратных 5, сформировать массив в.
- •2. Дан массив а(n), сформированный датчиком случайных чисел на интервале (-150; 15). Из элементов массива а, принадлежащих интервалу (-100; 10), сформировать массив в.
- •Задание 5.
- •1. Сформировать одномерный массив в(n), каждый элемент которого вычисляется по формуле
- •2. Дан массив а(30). Сформировать новый массив в из четных значений массива а, Если таких элементов нет, то сообщить об этом.
- •2. Вводится следующий поток данных: 9, 5, 2, 3, -2, -6, 4, -7, 1, 10.
- •8. Опишите один из типовых алгоритмов обработки массивов:
- •Задание 2.
- •1. Напишите программу формирования единичной матрицы.
- •2. Напишите программу формирования матрицы.
- •3. Напишите программу формирования матрицы.
- •4. Написать программу формирования квадратной матрицы.
- •5. Напишите программу формирования квадратной матрицы по спирали (задача повышенной трудности)
- •Задание 3.
- •Задание 4.
- •2. В матрице а(n,m) поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственные.
- •3. В матрице а(n,m) удалить все строки, сумма значений элементов которых отрицательна и вставить перед последней строкой строку, значения элементов которой равны 1.
- •Для заметок
Задание 3.
1. Составить по имеющейся программе блок-схему
program zadacha;
{нахождение наибольшего значения}
Var
a: array [1..10,1..15] of integer;
i, j, max: integer;
begin
for i:=1 to 10 do
for j:=1 to 15 do
a[i, j]:=random (30);
max:=a[1, 1];
for i:=1 to 10 do
for j:=1 to 15 do
if a[i j]>max then max:=a[i, j]
writeln (‘максимальное значение=’, max )
end.
2. Составить по имеющейся программе блок-схему
program zadacha;
{сумма значений элементов каждой строки}
var
a: array [1..10,1..10] of integer;
i, j, s: integer;
begin
for i:=1 to 10 do
begin
s:=0
for j:=1 to 15 do
begin
a[i, j]:=random (30);
s:=s+a[i, j ]
end;
writeln (‘сумма зн-й элементов’, i, 'строки',s )
end
end.
3. Составить по имеющейся программе блок-схему и выяснить в каких четвертях находятся максимальные значения элементов матрицы.
program zadacha;
{нахождение max в разных четвертях}
var
a: array [1..10,1..10] of integer;
i, j, max1, max2, max3, max4: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
begin
a[i, j]:=random (30);
writeln(‘a(‘,i,’,' j,')=',a[i, j])
end;
max1:=a[2, 1];
max1:=a[1, 2];
max1:=a[2, 10];
max1:=a[10, 2];
for i:=1 to 10 do
for j:=1 to 10 do
begin
if (i>j) and (i+j<n+1) then
if a[i, j]> max1 then
max1:=a[i, j];
if (i<j) and (i+j<n+1) then
if a[i, j]> max2 then
max2:=a[i, j];
if (i<j) and (i+j>n+1) then
if a[i, j]> max3 then
max3:=a[i, j];
if (i>j) and (i+j>n+1) then
if a[i, j]> max4 then
max4:=a[i, j]
end;
writeln (‘max в 1 четверти =’, max1 );
writeln (‘max во 2 четверти =’, max2 );
writeln (‘max в 3 четверти=’, max3 );
writeln (‘max в 4 четверти=’, max4 )
end.