Сжать матрицу вверх, исключив все нечетные строчки

@Alkaris · Регистрация: 26.11.2011

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

сжать матрицу В(15,15) вверх, исключив все нечетные строчки

@Puporev · 18.01.2012, 17:38

Pascal

uses crt;
const n=15;
var a:array[1..n,1..n] of integer;
    m,i,j,k:integer;
begin
clrscr;
randomize;
m:=n;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
i:=1;k:=2;
while i<=m do
 begin
  if i<m then
   begin
    for j:=1 to n do
    a[i,j]:=a[k,j];
    m:=m-1;
    i:=i+1;
    k:=k+2;
   end
  else m:=m-1;
 end;
writeln('результат сжатия;');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

@Alkaris · 18.01.2012, 18:08 **[ТС]**

не могу прокрутить вниз тект с телефона, покажи вторую часть плз

@morgan57 · 18.01.2012, 19:03

Сообщение от Puporev

Pascal

end;
writeln('результат сжатия;');
for i:=1 to m do
*begin
* for j:=1 to n do
* write(a[i,j]:4);
* writeln;
*end;
readln
end.

вот до скольки не отображаеться у меня

@Puporev · 18.01.2012, 19:15

Еще бы с калькулятора заходили...

@Alkaris 1 / 1 / 0 Регистрация: 26.11.2011 Сообщений: 19
		1
	Сжать матрицу вверх, исключив все нечетные строчки 18.01.2012, 17:07. Показов 1250. Ответов 4 Метки нет (Все метки) сжать матрицу В(15,15) вверх, исключив все нечетные строчки 0

@Alkaris 1 / 1 / 0 Регистрация: 26.11.2011 Сообщений: 19
	18.01.2012, 18:08 [ТС]	3
	не могу прокрутить вниз тект с телефона, покажи вторую часть плз 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.01.2012, 19:15	5
	Еще бы с калькулятора заходили... 0

Опции темы

Сжать матрицу вверх, исключив все нечетные строчки

Решение