@Олег Тимофеев

Даны целые числа a1,…, an, целочисленная квадратная матрица B порядка
m. заменить нулями в матрице те элементы с четной суммой индексов, для кото-
рых имеются равные среди a1,…, an.

0

@NotBeginner

консольное приложение? если я не ошибаюсь

0

@Олег Тимофеев

Без понятия) Ну программу надо сделать, форму, проект и так далее.

0

@NotBeginner

все значения рандомные? или вводятся?

0

@Олег Тимофеев

С рандомными значениями нашел проектик. А мне нужно, чтобы вводилась матрица и массив.

0

@NotBeginner

кидайте код подправим под не рандомные

1

@Олег Тимофеев

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, Spin;

type
TForm1 = class(TForm)
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n,m,k:byte; //размеры марицы и массива для проверки
b:array of array of integer; //матрица
a:array[1..10] of integer;//массив чисел для проверки
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
f:boolean; //логическая переменная для определения повторов чисел
x:integer; //переменная для генерации чисел
begin
randomize;
n:=SpinEdit1.Value;//компонент для ввода размеров на вкладке Samples
m:=SpinEdit2.Value;//устанавливаем в нем значения min=1, max=10
Stringgrid1.ColCount:=m;
Stringgrid1.RowCount:=n;
Stringgrid2.ColCount:=m;
Stringgrid2.RowCount:=n;
Setlength(b,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
b[i,j]:=random(20)+1; //создаем матрицу
for i:=0 to n-1 do
for j:=0 to m-1 do
Stringgrid1.Cells[j,i]:=Inttostr(b[i,j]);//пишем в табл. 1
k:=1;//создаем массив из 10 случайных неповторяющихся чисел
for i := 1 to 10 do
begin
repeat
f:=false;
x:=Random(20)+1; //генерируем число
for j:=1 to m do
if a[j]=x then f:=true; //ищем его в массиве
until f=false; //пока не будет повтора
a[i]:=x;//пишем в массив
k:=k+1;//увеличиваем размер на 1 и так до 10
end;
for i:=1 to 10 do
Stringgrid3.Cells[i-1,0]:=Inttostr(a[i]); //пишем в табл.3
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,p:byte;
begin
//обнуление элементов по условию
for i:=0 to n-1 do
for j:=0 to m-1 do
if (i+j)mod 2 = 0 then // если сумма индексов чётная
for p:=1 to 10 do
if b[i,j] = a[p] then // и если элемент входит в массив чисел
b[i,j]:= 0; // зануляем элемент
for i:=0 to n-1 do
for j:=0 to m-1 do
Stringgrid2.Cells[j,i]:=Inttostr(b[i,j]);
end;

end.

0

@NotBeginner

вот это убираем - и заполняем грид ручкам.
вот это тоже убираем
кидаем на форму какой нибуть компонент, в который будет вводить цифры

1

@Олег Тимофеев

NotBeginner, Спасибо огромное) Сейчас попробую)

Добавлено через 4 минуты
NotBeginner, Извините, а вводить цифры в гриды вручную? Это через Cells?=) Я извиняюсь, просто совершенно не соображаю в программировании(

0