Одномерный массив.

[Юля_7182]

как двумерный решить? теперь

Двумерный массив.
Написать программу,которая проверяет,находится ли в двумерном массиве введённое с клавиатуры число.

[ZX Spectrum-128]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  n=5;
{ Написать программу,которая проверяет, есть ли во введенном с
  клавиатуры массиве число 5.Если есть такое число,то вывести
  на экран "да" а иначе вывести "нет".}
var
  a:array [1..n,1..n] of integer;
  q,i,j:integer;
  s:string;
  YesOrNo:boolean;
begin
  Randomize;
  Memo1.Lines.Clear;
  s:='';
  YesOrNo:=false;
  for I := 1 to n do
    begin
     s:='';
     for j := 1 to n do
       begin
         a[i,j]:=RandomRange(-10,10);
         s:=s+IntToStr(a[i,j])+' ';
       end;
     Memo1.Lines.Add(s);
  end;
  q:=strtoint(edit1.Text);
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]=q then
        YesOrNo:=true;
  if YesorNo then
    s:='Да'
  else
    s:='Нет';
  Memo1.Lines.Add(s)
end;

end.

[Юля_7182]

ошибку выдает если не вводишь число.

[Serge_Bliznykov]

Сообщение от Юля_7182

Двумерный массив.
Написать программу,которая проверяет,находится ли в двумерном массиве введённое с клавиатуры число.

т.е. старая тема на трёх страницах:
Двумерный массив, находится ли в двумерном массиве введённое с клавиатуры число (Delphi 7)
Вас уже перестала интересовать... ;(

Сообщение от Юля_7182

ошибку выдает если не вводишь число.

И что теперь?! Либо вводите в Edit1 число (целое, кстати), либо напишите код проверки и выдачу сообщения, если в Edit1 не введено число. Что не так то?!

[Юля_7182]

ну если ввел в edit1 число должно выдать да а если не ввел нет так вот нет не выводит просто ошибка и всёЁ!

[ZX Spectrum-128]

[смайл, бьющийся головой об стену]
Да нет же!
Число должно быть введено обязательно!
А вам нужно проверить, есть ли введенное число в массиве или нет!
Условие задачи хоть прочитайте сами!