Паскаль. Матрица и Вектор.

[ByteMan]

Дана матрица A 4*4 выбрать из матрицы A элементы больше 10 и записать их в вектор B. (вектор это одномерный массив).

[kommunist]

что у тебя не получается?

[ByteMan]

Матрицу я создал, а как из одного массива выбрать элементы больше 10 и присвоить их второму массиву, т.е. вектору?

[kommunist]

выбор из массива элементов:
for i:= 1 to 4 do
begin
for j:= 1 to 4 do
begin
if a[i,j]> 10 then
write(a[i,j],' ');

[ByteMan]

а как эти элементы присвоить вектору?

[zetrix]

var i,j,temp:byte;
a:array [1..4,1..4]of integer;
b:array [1..16] of integer; //беру 16 элементов, т.к. в матрице А все числа могут быть больше 10!
...
temp:=0;
for i:=1 to 4 do
 for j:=1 to 4 do
  begin
  if a[i,j]>10 then
            begin
            temp:=temp+1;// можно inc(temp); написать :)
            b[temp]:=a[i,j];
            end;
  end;

В результате в массиве В будет Ваш верктор. Количиство чисел = temp.

[ByteMan]

Спасибо! И у меня ещё вопрос как работает оператор For to do? Я вроде и читал в учебнике но что не совсем понял, кто может объясните по подробнее и желательно на примере.

[kommunist]

оператор for to do работает сдедующим образом:
Оператор цикла for имеет одну из двух форм:
for переменная:=начальное значение to конечное значение do
оператор
или
for переменная:=начальное значение downto конечное значение do
оператор

цикл служит для того что бы не повторять одно действие несколько раз при чем количество повторений известно:
например задача вывести алфавит ///без цикла:

program abc;
begin
writeln('a');
writeln('b');
writeln('c');
.............
.............
writeln('z';
end.
 можно используя цикл:
program abc;
var c:char;
begin
for c:= 'a' to 'z' do begin
write(c,' ');
end;
readln;
end.

не забываем про теги (кнопочка #code - расширенный режим)

[Alex21]

program Extract;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
N=4;

var a:array[1..N,1..N]of real;
    b:array of real;
    i,j:integer;

  { TODO -oUser -cConsole Main : Insert code here }

begin
  randomize;
  for i:=1 to N do
  begin
    for j:=1 to N do
    begin
      a[i,j]:=Random(30);
      if a[i,j]>10 then
      begin
        SetLength(b,length(B)+1);
        b[length(b)-1]:=a[i,j];
      end;
      Write(a[i,j]:2:0,' ');
    end;
    writeln;
  end;
  writeln;

  for i:=0 to length(b)-1 do
  Write(b[i]:2:0,' ');

  readln;
end.