Создать новый одномерный массив из элементов,стоящих в строках,номера которых кратны трем

@Blaze225 · Регистрация: 17.05.2015

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

Создать новый одномерный массив из элементов,стоящих в строках,номера которых кратны трем.

@ZX Spectrum-128 · 29.05.2015, 14:41

Pascal

{Создать новый одномерный массив из элементов,стоящих в строках,
номера которых кратны трем.}
const
  n=15;
var
  a:array [1..n,1..n] of integer;
  b:array [1..n*n] of integer;
  i,j,k:integer;
begin
  randomize;
  writeln('Matrix A:');
  k:=0;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(n)+1;
          write(a[i,j]:3);
          if i mod 3 = 0 then
            begin
              inc(k);
              b[k]:=a[i,j];
            end;
        end;
      writeln;
    end;
  writeln('Vector B:');    
  for i:=1 to k do
    write(b[i]:3);
  readln;
end.

@Blaze225 0 / 0 / 0 Регистрация: 17.05.2015 Сообщений: 16
		1
	Создать новый одномерный массив из элементов,стоящих в строках,номера которых кратны трем 27.05.2015, 23:20. Показов 1627. Ответов 1 Метки нет (Все метки) Создать новый одномерный массив из элементов,стоящих в строках,номера которых кратны трем. 0

	29.05.2015, 14:41

Опции темы

Создать новый одномерный массив из элементов,стоящих в строках,номера которых кратны трем

Решение