[maximprada]

1. Задан массив действительных чисел из N элементов (вводится с клавиатуры). Определить количество элементов, значения которых находятся в диапазоне от –100 до +100.
2. Задано пять произвольных целых чисел (элементы массива). Определить, является ли их расположение в массиве упорядоченным (т.е. по возрастанию ил убыванию) ил неупорядоченным.

[freedomman]

как то так

Код:

for i:=1 to n do
if (a[i]>=-100) or (a[i]<=100)
then 
b:=b+1;
label.caption:='количество элементов диапозона [-100,100]= '+inttostr(b);

[Ildar-tsr]

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

как то так

Код:

for i:=1 to n do
if (a[i]>=-100) or (a[i]<=100)
then 
b:=b+1;
label.caption:='количество элементов диапозона [-100,100]= '+inttostr(b);

Код:

b:= 0;
if (a[i]>=-100) AND (a[i]<=100)
then
...

[freedomman]

да да да, не заметил

[maximprada]

Спасибо ребята! Еще решить бы задачу с убыванием и возрастанием бы....

[chainik]

Код:

program Project1;

{$APPTYPE CONSOLE}


var
i,Dim:integer;
M:array of integer;
Up,Dn:boolean;

begin
Up:=false;
Dn:=false;
Write('Dimention:');readln(Dim);
SetLength(M,Dim);
for i:=0 to High(M) do read(M[i]);
readln;

for i:=1 to High(M) do
  begin
  if M[i] > M[i-1] then Up:=True;
  if M[i] < M[i-1] then Dn:=True;
  end;

if Up and Dn then writeln('NoSorted')
else if Dn then writeln('Down')
else writeln('Up');

readln;
end.