массив

[Елешечка]

. Дан двумерный массив A , элементы которого определяются следующим образом: A=100*i+0,75*j
Определите, есть ли в массиве элемент со значением Q.

[ZX Spectrum-128]

Readln(q);
For i:=1 to n do
  For j:=1 to m do
    A[i,j]:=100*i+0.75*j;
  For i:=1 to n do
    For j:=1 to m do
    If a[i,j]=q then 
       // есть
     Else
       // нету;

[Елешечка]

Спасибо огромное)*

а что делать если в цикле for j должна быть и real и integer&

[ZX Spectrum-128]

Не понял? Массив он или только real, или только integer.

[Елешечка]

не получается(

[ZX Spectrum-128]

Вы положите программу сюда.

[Елешечка]

program zad1;

var
masA: array [1..5,1..6] of real;
m,i,n,j:integer;q:real;
begin
writeln ('Ввелите количество элементов');
readln(m);
For i:=1 to m do
  For j:=1 to m do

    begin
    masA[i,j]:=100*i+0.75*j;
    end;
writeln('Число для поиска ');
    readln(q);

  For i:=1 to m do
    For j:=1 to m do
    If masA[i,j]=q then
       writeln( masA[i,j])
      Else
      writeln ('YTN');
      END.

ну воот пропал(((

[ZX Spectrum-128]

А зачем два массива? И заполняете mas, а работаете с а.
Выбросте массив а, работайте только с mas.

[Елешечка]

да выбросила( я всё равно что то не понимаю(

[ZX Spectrum-128]

Теперь выбросьте readln(mas[...
По заданию, у вас массив заполняется по формуле
И q должно быть типа real