Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
2 / 2 / 0
Регистрация: 24.01.2012
Сообщений: 96
1

Одномерный массив. Найти номер первого отрицательного элемента, который по модулю меньше максимального числа

10.11.2014, 17:52. Показов 983. Ответов 2
Метки нет (Все метки)

Здравствуйте.
Очень надеюсь на вашу помощь.
Есть задание:Найти номер первого отрицательного элемента, который по модулю меньше максимального числа.
Сам массив задается в программе. Код написан, выдается ошибка 57: THEN expected.
Не могли бы вы помочь найти ее и по возможности исправить. Заранее спасибо.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program lab4;
uses crt; 
const n =5;
var a: array [1..n] of integer;
    i,k, nmax: integer;
 
begin
  clrscr;
  a[1]:=34; a[2]:=2; a[3]:=62; a[4]:=-80; a[5]:=-7;
  nmax:=1;
  Writeln(‘danniy massiv’);
for i:= 1 to n do
  write(' a[',i,']= ', a[i]);
  writeln;
for i:= 1 to n do
   begin
   if a[i]>a[nmax] then nmax := i 
   end;
   i:= a[nmax];
for j:= 1 to n do
   begin
   if a[k]<0 and abs(a[k])<nmax then 
   i:=k;
   writeln ('nomer otritsat chisla:', i);  
   readln;    
   end;
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.11.2014, 17:52
Ответы с готовыми решениями:

Одномерный массив. Найти номер максимального по модулю элемента
В одномерном массиве, состоящим из n вещественных элементов, вычислить: 1) Номер максимального по...

Одномерный массив. Найти номер первого из элементов, который меньше данное число k
Дан массив чисел 16,8,35,201,110,17,18,19,20 .Знайти номер первого из элементов, который меньше...

Найти номер минимального по модулю элемента массива и сумму модулей после первого отрицательного элемента
1.В одномерном массиве, состоящем из n вещественных элементов, вычислить: а)номер минимального по...

Найти номер максимального элемента массива, который меньше ста
Найти номер максимального элемента массива, который меньше ста. Известно, что значения элементов...

2
217 / 123 / 99
Регистрация: 14.03.2011
Сообщений: 628
10.11.2014, 21:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program lab4;
uses crt;
const n =5;
var a: array [1..n] of integer;
i,k, nmax,j: integer;
begin
clrscr;
a[1]:=34; a[2]:=2; a[3]:=62; a[4]:=-80; a[5]:=-7;
nmax:=1;
Writeln('danniy massiv');
for i:= 1 to n do
write(a[i]:6);
writeln;
for i:= 1 to n do
begin
if a[i]>a[nmax] then nmax := i
end;
for j:= 1 to n do
begin
if (a[j]<0) and (abs(a[j])<nmax) then begin
i:=j; break;end; end;
writeln ('nomer otritsat chisla:', i);
readln;
End.
ошибка вылезла из-за того, что если используются "and", "or" то каждое условие надо брать в скобки.
if (a[k]<0) and (abs(a[k])<nmax) then i:=k;
0
2 / 2 / 0
Регистрация: 24.01.2012
Сообщений: 96
10.11.2014, 23:47  [ТС] 3
Спасибо вам огромное.
В методичке этого не упоминалась, теперь буду знать.

Отдельное спасибо за то, что почистили код.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.11.2014, 23:47

Найти номер первого максимального элемента среди отрицательных элементов, расположенных до первого элемента, большего заданного числа Т
Написать собственную функцию для работы с одномерным динамическим массивом, заданным указателем....

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

Массив: Для R(m,n), 1<(m,n)<10, найти в каждом столбце номер первого отрицательного элемента
Написать программу для ввода , обработки и печати матрицы Для R(m,n), 1&lt;(m,n)&lt;10, найти в каждом...

Дан массив из 30 элементов. Найти порядковый номер первого отрицательного элемента.
Дан массив из 30 элементов. Найти порядковый номер первого отрицательного элемента.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru