Сформировать матрицы одномерный массив, в который поместить все ненулевые элементы

@nastacya · Регистрация: 30.11.2011

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

Дан двумерный массив А размерностью 7*7, элементы массива - случайные числа из диапазона (-30..30). необходимо сформировать из элементов массива А одномерный массив В, в который поместить все ненулевые элементы. Вывести на экран исходный массив А и полученный массив В.

Pascal

program massiv;
uses crt;
var A:array[1..7,1..7] of integer;
B:array[1..20] of integer;
n,i,j:integer;
Begin
randomize;
for i:=1 to 7 d0
for j:=1 to 7 do
begin
A[i,j]:random(61)-30;
end;
writeln('massiv');
for i:=1 to 7 do
begin
for j:=1 to 7 do
write(A[i,j]:3,' ');
writeln;
end;
writeln('искомый массив');
for i:=1 to 7 do
for j:=1 to 7 do

что дальше?
помогите пожалуйста)

@КонецСвета · 30.11.2011, 20:45

Pascal

program massiv;
uses crt;
var A:array[1..7,1..7] of integer;
    B:array[1..50] of integer;
    i,j,k:integer;
Begin
randomize;
writeln('исходный массив');
for i:=1 to 7 do
    begin
    for j:=1 to 7 do
        begin
        A[i,j]:=random(61)-30;
        write(A[i,j]:4);
        end;
    writeln;
    end;
writeln('искомый массив');
k:=1;
for i:=1 to 7 do
    for j:=1 to 7 do
        begin
        if a[i,j]<>0 then
           begin
           b[k]:=a[i,j];
           write (b[k]:4);
           inc(k);
           end;
        end;
end.

	30.11.2011, 20:45

Опции темы