Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из четных элементов массива А. Элементы вводятся с клавиатуры. Размер n.





 

Program newmasiv;

 

Var a: array[1..100] of integer;

b: array[1..100] of integer;

n, i, k: integer;

Begin

kol:=0; k:=0;

write ('n='); readln (n);

For i:=1 to n do

begin

write(‘a[‘,i,’]=’); readln (a[i]);

if a[i] mod 2=0 then

begin

k:=k+1; b[k]:=a[i]; kol:=kol+1;

end;

if kol=0 then writeln(‘четных элементов нет’) else

for k:=1 to kol do write(‘b[‘,k,’]=’,b[k]);

end;

Задачи для самостоятельной работы

1. Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный.

2. Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер произвольный.

3. Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный.

4. Массив А вводится с клавиатуры. Найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов. Размер произвольный.

5. Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный.

6. Найти средне арифметическое элементов последовательности, превосходящих некоторое число С. Массив задан датчиком случайных чисел на интервале [-44, 35]. Размер произвольный. Значение С вводится с экрана.

7. Массив А вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный.

8. Упорядочить данную последовательность по убыванию. Элементы вводятся с клавиатуры. Размер произвольный.

9. Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [-54, 33]. Размер произвольный.

10. Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А. Размер произвольный.

11. Массив задан датчиком случайных чисел на интервале [-31, 45]. Сформировать новый массив В, состоящий из нечетных элементов массива А. Размер произвольный.

12. Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А и найти в нем наибольший элемент. Размер произвольный.

13. Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.

Двумерные массивы (матрицы)

 

1. Сформировать с помощью датчика случайных чисел и вывести на экран матрицу, размером МхN. Элементы задаются на интервале [-20, 25].

 

 

Var a: array[1..50,1..50] of integer;

i, j, n, m: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin

a[i,j]:=int(rnd*46)-20;

write(a[i,j],’ ‘);

end;

writeln;

end;

End.

В двумерном массиве, состоящем из n целых чисел, найти сумму элементов в каждой строке. Размер произвольный.

 

Program summastrok;

Var a: array[1..50,1..50] of integer;

i, j, n, m,S: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

For j:=1 to n do

begin

write(‘a[‘,i,’,’,j,’)=’); readln (a[i,j]);

end;

For i:=1 to m do

begin

S:=0;

For j:=1 to n do

S:=S+a[i,j];

Writeln(‘сумма элементов в ‘,i,’ строке равна ‘,S);

end;

End.

 

3. Найти наименьший элемент двумерного массива. Размер MXN. Элементы задаются на интервале [-30, 45].

Program minim;

Var a: array[1..50,1..50] of integer;

i, j, n, m, min: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin

a[i,j]:=int(rnd*76)-30; write(a[i,j],’ ‘);

end;

writeln;

end;

min:=a[1,1];

For i:=1 to m do

For j:=1 to n do

if a[i,j]< min then min:=a[i,j];

Writeln(‘наименьшее число ‘,min);

End.

 

В двумерном массиве, состоящем из целых чисел, найти наименьший элемент и номер строки, в которой он находится. Элементы вводятся с клавиатуры. Размер MXN.

 

Program minim;

Var a: array[1..50,1..50] of integer;

i, j, m, n, min, K: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

For j:=1 to n do

begin write(‘a[‘,i,’,’,j,’]=’); readln (a[i,j]); end;

min:=a[1,1]; K:=1;

For i:=1 to m do

For j:=1 to n do

If a[i,j]< min then

begin

min:=a[i,j]; K:=i;

end;

Writeln(‘наименьшее число ‘,min,’ находится в ‘, k , ‘ строке’);

End.

 

5. Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел. Размер MXN. Элементы задаются на интервале [-19, 30].

program sumstr;

Var a: array[1..50,1..50] of integer;

i, j, n, m,sum: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin

a[i,j]:=int(rnd*50)-19; write(a[i,j],’ ‘);

end;

writeln;

end;

for i:=1 to m do

begin

sum:=0;

for j:=1 to n do sum:=sum+a[i,j];

writeln('сумма элементов в ',i,' строке: ',sum);

end;

end.

 

Подсчитать количество положительных элементов в каждой строке матрицы размером МхN, элементы которой вводятся с клавиатуры.

 

program kolpolvstr;

Var a: array[1..50,1..50] of integer;

i, j, m, n, kol: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin write(‘a[‘,i,’,’,j,’]=’); readln (a[i,j]); end;

for i:=1 to m do

begin

kol:=0;

for j:=1 to n do if a[i,j]>0 then kol:=kol+1;

writeln('количество положительных элементов в ',i,' строке: ',kol);

end;

writeln;

end;

end.

 

7. Сформировать матрицу типа 1 0 0 0

0 1 0 0

0 0 1 0

0 0 0 1

program formir;

Var a: array[1..50,1..50] of integer;

i, j, m, n: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin

if i=j then a[i,j]:=1 else a[i,j]:=0;

write(a[i,j]);

end;

writeln;

End.





Читайте также:
Жанры народного творчества: Эпохи, люди, их культуры неповторимы. Каждая из них имеет...
Восстановление элементов благоустройства после завершения земляных работ: Края асфальтового покрытия перед его восстановлением должны...
Гражданская лирика А. С. Пушкина: Пушкин начал писать стихи очень рано вскоре после...
Своеобразие романтизма К. Н. Батюшкова: Его творчество очень противоречиво и сложно. До сих пор...

Рекомендуемые страницы:



Вам нужно быстро и легко написать вашу работу? Тогда вам сюда...

Поиск по сайту

©2015-2021 poisk-ru.ru
Все права принадлежать их авторам. Данный сайт не претендует на авторства, а предоставляет бесплатное использование.
Дата создания страницы: 2016-08-20 Нарушение авторских прав и Нарушение персональных данных


Поиск по сайту:

Мы поможем в написании ваших работ! Мы поможем в написании ваших работ! Мы поможем в написании ваших работ!
Обратная связь
0.042 с.