[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.

[maximprada]

chainik, огромное спасибо!
Ребята выручайте, первое задание в консоли если есть вариант полного решения сделать можно!?
А то завтра чувствую на защите мне ...кердык!
Спасибо всем кто помогает.

[angvelem]

Замечательно когда помогают, ещё лучше когда за тебя всё делают. Но совесть нужно иметь, всю жизнь на чужом горбу не прокатаешься.

[maximprada]

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

[maximprada]

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  N_el=5;
type
  F=array[0..N_el] of integer;

var
  n,i,b,a:integer;
  M:F;
begin

  write('input 5 elements = ');
  readln(n);
    for i:=1 to n do
    begin
      write('M[',i,']=');
      readln(M[i]);
    end;

begin
 b:= 0;
  if (M[i]>=-100) and (M[i]<=100)
  then
   b:=b+1;
 write('kolichesto znakov [-100,100]= ');
 write (b);
 readln;
end;

end.

Если есть желание помогите

[angvelem]

Может нигде и не ошибся.

Код:

program Project;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  buf        : array of Integer;
  Value      : String;
  I, Count : Integer;

begin
  WriteLn('Введите числовые значения:');
  ReadLn(Value);
  while Value <> '' do
  begin
    SetLength(buf, Length(Buf) + 1);
    Buf[Length(Buf) - 1] := StrToInt(Value);
    ReadLn(Value);
  end;

  Count := 0;
  for I := 0 to Length(Buf) - 1 do
     if (Buf[i] >= -100) and (Buf[i] <= 100) then
       inc(Count);

  if Count > 0 then
    WriteLn('Всего чисел удовлетворяющих условию ' + IntToStr(Count));

  ReadLn;
end.

[maximprada]

Код:

while Value <> #13 do

Вот тут выдает ошибку.

[angvelem]

Исправил, теперь всё верно.

[maximprada]

Благодарю! товарищи, блин ... реально выручили! блин, хреново что на заочке не сильно дают знания! А самому тяжело изучать!

[maximprada]

Код:

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var
i,n:integer;
M:array of integer;
Up,Dn:boolean;
begin
 Up:=true;     // по умолчанию переменные принимаю
 Dn:=true;     // значение True
  Write('Vvedite massiv:');
  readln(n);
SetLength(M,n);
  for i:=0 to n-1 do readln(M[i]);
  //   readln;
  for i:=1 to n-1 do
    begin
      if M[i] < M[i-1] then Up:=False;
      if M[i] > M[i-1] then Dn:=False;
    end;
if Up and Dn then writeln('NoSorted')
else if Up then writeln('Up')
else if Dn then writeln('Down');
readln;
end.

Код:

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
const  n_el = 100;
var
  M:array[1..n_el] of integer;
  i,n,j:integer;
Begin
  Write('input massiv= ');
  Readln(n);
  for i:=1 to n do
    begin
      Write('ele=');
      Readln (M[i]);
    end;
  j:=0;
  for i:=1 to n do
    if (M[i]>=-100) and (M[i]<=100) then  j:=j+1;
  write('kolichesto elementov [-100,100]= ');
  writeln(j);
  readln;
end.

Спасибо ребята кто помогал, задачи чуток были переправленны....
Но помочь была не оценимая! ....
Выкладываю решеный код уже .. полностью готовый! Может кому еще поможет!