задача : найти последний положительный элемент массива R[K] ,величина которого находится в заданном диапазоне [ a, b].

[ZX Spectrum-128]

Положите текст программы.

[марфаз]

program V23;
var mas : array [1..25] of real;
i,x,n:integer ;
a,b,tmp:real;
begin
Randomize;
writeln('введите кол-во элементов массива ');
readln(n);
writeln('элементы массива');
For i:=1 to n do
begin
mas[i]:=random(20)-10+random(100)/100;
writeln(mas[i],'   ');
end;
writeln('введите диапазон');
readln(a,b);
if(a>=b)then
begin tmp:=a;
a:=b;
b:=tmp;
end;
x:=0;
for i:=1 to n do
if ((mas[i] > 0) AND (mas[i] >= a) AND (mas[i] <=b)) then
x:= i;
if x<>0 then writeln('последний пол-й элемент массива=',mas[x],' ','индекс=',x) else writeln('Нет элементов в диапазоне [',a,',',b,']');
end.

вот это правильный вариант!

или нет????

[ZX Spectrum-128]

Ну вот, работает же.

Единственное, что исправил. Условие, что элементы массива в интервале -1..1

program V23;
var
  mas : array [1..25] of real;
  i,x,n:integer ;
  a,b,tmp:real;
begin
  Randomize;
  writeln('введите кол-во элементов массива ');
  readln(n);
  writeln('элементы массива');
  For i:=1 to n do
  begin
    mas[i]:=random-0.5;
    writeln(mas[i]:8:2);
  end;
  writeln('введите диапазон');
  readln(a,b);
  if (a>=b) then
    begin
      tmp:=a;
      a:=b;
      b:=tmp;
    end;
  x:=0;
  for i:=1 to n do
    if ((mas[i] > 0) AND (mas[i] >= a) AND (mas[i] <=b)) then
      x:= i;
    if x<>0 then
      writeln('последний пол-й элемент массива=',mas[x]:8:2,' ','индекс=',x)
    else
      writeln('Нет элементов в диапазоне [',a:8:2,',',b:8:2,']');
end.

[марфаз]

текст задачи
сменить знак минимального элемента матрицы В [N,N] если он находится нижеглавной диагонали.

const
n = 5;
var
b : array [1..n, 1..n] of integer;
i, j, max, im, jm : integer;

begin
max := -1000;
randomize;
writeln('исходный массив:');
for i := 1 to n do
begin
for j := 1 to n do
begin
b[i,j] := random(100);
write(b[i,j]:4);
if b[i,j] >= max then
begin
max := b[i,j];
im := i;
jm := j
end
end;
writeln
end;
writeln('максимальное значение: ', max);
if jm > im then
begin
b[im, jm] := -b[im, jm];
for i := 1 to n do
begin
for j := 1 to n do
write(b[i,j]:4);
writeln
end
end
else writeln('максимум не выше главной диагонали');
readln
end.

ВОТ ПРОГРАММА , ПРОВЕРЬТЕ ПОЖАЛУЙСТА ПРАВИЛЬНАЯ ИЛИ НЕТ И КАК СДЕЛАТЬ ЧТОБЫ МАТРИЦУ ВВОДИТЬ В РУЧНУЮ С КЛАВИАТУРЫ????

[ZX Spectrum-128]

1. Заменить

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

На

Readln(b[i,j]);

2. Нет, неправильная

Max:=-1000;

Заменить на

Max:=b[1,1];

[марфаз]

а как сделать чтобы ниже диагонали было, получается выше

[ZX Spectrum-128]

if jm > im then <----- знак поменять на <

[марфаз]

исходный массив:
5
57
77
78
89
9
89
89
22
22



5
5

блин ,матрица почему так вводится

[ZX Spectrum-128]

Так и должна. А что не устраивает? Вводить как угодно можно, выводить желательно красиво.

[марфаз]

вот именно что красиво не получается(((((

покажи пример как вводить чтобы красиво было

где в программе строка где выполняется чтобы максимальное число было ниже главной диагонали?


_____________________________
Форум - не чат!
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.