на что нужно заменить integer и почему?

[Quadration]

Сразу говорю прошу объяснить(в 2 словах),а не написать программу(хотя не помешает)
Условие.
Написать программу,которая найдет кол-во элементов массива A(5,6) удовлетворяющее условие 0.1<A[i,j]<0.9 и заменить их на 0.5.
теперь сама проблема: если обычно(когда сталкивались с целыми числами) мы использовали integer в строке
var a:array [1..5,1..6]of inger;i,j,k:integer;
то что мне писать вместо integer тк у меня дробные числа используются?я попробовал написать real,но выдает ошибку.

[zumm]

--> double

PS или float, только вот не помню есть ли такой в паскале...

[Hacker19_90]

И какую же ошибку выдаёт ваш компилятор?
А лучше покажите программу!

[Mad_Cat]

var a:array [1..5,1..6]of real;
i,j,k:integer;

потому что
0.1<A[i,j]<0.9 и заменить их на 0.5

[Quadration]

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

И какую же ошибку выдаёт ваш компилятор?
А лучше покажите программу!

97 invalid for control variable

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

А лучше покажите программу!

program massive;
uses crt;
var a:array [1..5,1..6]of real;i,j,k:real;
begin
k:=0;
randomize;
for i:=1 to 5 do
for j:=1 to 6 do
begin
a[i,j]:random(100);
if 0.1<a[i,j]<0.9 then k:=k+1 then a[i,j]:=0.5;
end;
if k=0 then writeln ('takix elementov net') else writeln('kol-vo elementov',k);
readkey
end.

[alex_fcsm]

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

Сразу говорю прошу объяснить(в 2 словах),а не написать программу(хотя не помешает)

Посмотрите типы в Паскале-Делфи. Конкретно, что за тип integer и real

[Hacker19_90]

if 0.1<a[i,j]<0.9

и что же это за условие???
может так переписать!:

if (a[i,j] > 0.1) and (a[i,j] < 0.9)

[Mad_Cat]

a[i,j]:=random(100);

ответом в вашей задаче всегда будет 0 а матрица неизменной)
замените на

a[i,j]:=random(100)/50;

всем спасибо. разобрался

- всегда интересно было чего они под этим подразумеваеют)

[Hacker19_90]

О да а дальше то я не читал! Вот короче код

program massive;
uses crt;
var a:array [1..5,1..6]of real;i,j,k:real;
begin
k:=0;
randomize;
for i:=1 to 5 do
for j:=1 to 6 do
a[i,j] := random(100)/50;
if (a[i,j]> 0.1) and (a[i,j]<0.9) then
begin
k:=k+1;
a[i,j]:=0.5;
end;
if k=0 then writeln ('takix elementov net') else writeln('kol-vo elementov',k);
readkey
end.

[Quadration]

всем спасибо. разобрался