Заменить нулями в матрице те елементы с четной сумой индексов,для которых имеются равные с а1,..,а10

@nkpn · Регистрация: 24.05.2013

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

Даны целые числа а1,...,а10, целочисленная квадратная матрица порядка n. Заменить нулями в матрице те елементы с четной сумой индексов,для которых имеются равные с а1,..,а10. Пол года назад подобное выпало,мучался кучу времени,и всеравно результат не радовал до конца(

@Puporev · 24.05.2013, 09:59

Pascal

uses crt;
const m=10;
      nmax=20;
var a:array[1..m] of integer;
    b:array[1..nmax,1..nmax] of integer;
    n,i,j,k:integer;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(10)+1;
    write(b[i,j]:3);
   end;
  writeln;
 end;
writeln('Массив А:');
for i:=1 to m do
 begin
  a[i]:=random(10)+1;
  write(a[i]:3);
 end;
writeln;
writeln('Измененная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(i+j)mod 2=0 then
     begin
      f:=false;
      k:=1;
      while(k<=m)and not f do
      if a[k]=b[i,j] then f:=true
      else k:=k+1;
      if f then b[i,j]:=0;
     end;
    write(b[i,j]:3);
   end;
  writeln;
 end;
readln
end.

@nkpn 0 / 0 / 0 Регистрация: 24.05.2013 Сообщений: 3
		1
	Заменить нулями в матрице те елементы с четной сумой индексов,для которых имеются равные с а1,..,а10 24.05.2013, 09:42. Показов 1546. Ответов 1 Метки нет (Все метки) Даны целые числа а1,...,а10, целочисленная квадратная матрица порядка n. Заменить нулями в матрице те елементы с четной сумой индексов,для которых имеются равные с а1,..,а10. Пол года назад подобное выпало,мучался кучу времени,и всеравно результат не радовал до конца( 0

Опции темы

Заменить нулями в матрице те елементы с четной сумой индексов,для которых имеются равные с а1,..,а10

Решение