Сформировать одномерный массив B из элементов массива A, лежащих в интервале [1,30]

@Anna1235467 · Регистрация: 14.06.2015

Author24 — интернет-сервис помощи студентам

Дано:Массив A(N,M).Сформировать одномерный массив B из элементов массива A, лежащих в интервале [1,30]

@kot96 · 15.06.2015, 17:20

Pascal

program ex1;
uses crt;
type vector=array[1..100] of integer;
var n,k:integer;
    a,b:vector;
    
procedure form(var a:vector;var n:integer);
var i:integer;
begin
write('введите количество элементов в массиве: ');readln(n);
for i:=1 to n do
a[i]:=Random(100)-35;
end;
 
procedure print(a:vector; n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
writeln();
end;
 
procedure form2(var b:vector; a:vector; n:integer; var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
if (a[i]>=1) and (a[i]<=30) then
begin k:=k+1;b[k]:=a[i];end;
end;
 
begin
form(a,n);
write('массив А: ');
print(a,n);
form2(b,a,n,k);
write('массив В: ');
if k=0 then write('Чисел в диапазоне от 1 до 30 нет')
else
print(b,k);
writeln();
end.

@Anna1235467 0 / 0 / 0 Регистрация: 14.06.2015 Сообщений: 3
		1
	Сформировать одномерный массив B из элементов массива A, лежащих в интервале [1,30] 14.06.2015, 22:17. Показов 1606. Ответов 1 Метки нет (Все метки) Дано:Массив A(N,M).Сформировать одномерный массив B из элементов массива A, лежащих в интервале [1,30] 0

	15.06.2015, 17:20

Сформировать одномерный массив B из элементов массива A, лежащих в интервале [1,30]

Решение