ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
17.03.2010, 21:47
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
MaTpOc вот точный код программы! сорри что сразу норм не написал... спасибо Soherox
PHP код:
const
n = 30;
var
a: array [1..n] of integer;
i, imax, imin, max, min: integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i] > max then
begin
imax:=i;
max:=a[i];
end;
if a[i] < min then
begin
imin:=i;
min:=a[i];
end;
end;
if imin = imax then write('0')
else write(abs(imin - imax) - 1);
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 17.03.2010 в 21:54..
|
|
|
17.03.2010, 21:52
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Блин не успел свое запостить ((
EndLeSSDre@M, а зачем два раза массив заполнять, в 1 и во 2 цикле?
|
|
|
|
17.03.2010, 21:54
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от fenixelite
Блин не успел свое запостить ((
EndLeSSDre@M, а зачем два раза массив заполнять, в 1 и во 2 цикле?
оп))) опять скосячил))) спасибо)
|
|
|
|
17.03.2010, 22:04
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
EndLeSSDre@M, незачто )) Мы с тобой вообще одинаково сделали, ток переменные разные ))
|
|
|
|
17.03.2010, 22:06
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
Провел на форуме:
10311449
Репутация:
1357
|
|
Сообщение от EndLeSSDre@M
MaTpOc вот точный код программы! сорри что сразу норм не написал... спасибо Soherox
PHP код:
const
n = 30;
var
a: array [1..n] of integer;
i, imax, imin, max, min: integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i] > max then
begin
imax:=i;
max:=a[i];
end;
if a[i] < min then
begin
imin:=i;
min:=a[i];
end;
end;
if imin = imax then write('0')
else write(abs(imin - imax) - 1);
readln;
end.
не выводит кол-во
|
|
|
|
17.03.2010, 22:08
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184
Репутация:
47
|
|
Сообщение от MaTpOc
Помогите написать программу подсчета количества элементов, попадающих между номером минимального элемента и максимального элемента в массиве из 30 чисел.
Так код уже выкладывался страница 578, #5772 
Последний раз редактировалось Soherox; 17.03.2010 в 22:11..
|
|
|
|
17.03.2010, 22:09
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Поправь abs(imax-imin)-1
|
|
|
|
17.03.2010, 22:12
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184
Репутация:
47
|
|
Сообщение от fenixelite
Поправь abs(imax-imin)-1
А разница? abs(imax-imin) = abs(imin-imax), abs это модуль 
|
|
|
|
17.03.2010, 22:12
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
Провел на форуме:
10311449
Репутация:
1357
|
|
|
|
|
|
17.03.2010, 22:14
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
вот кароче так попробуй
PHP код:
const
n = 30;
var
a: array [1..n] of integer;
i, imax, imin, max, min: integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if a[i] > max then
begin
imax:=i;
max:=a[i];
end;
if a[i] < min then
begin
imin:=i;
min:=a[i];
end;
end;
n=abs(imin - imax) - 1
if n=0 then writeln('0')
else writeln(n);
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 17.03.2010 в 22:18..
|
|
|
|
|
|
|
|
Здесь присутствуют: 3 (пользователей: 0 , гостей: 3)
|
|
|
|
Похожие темы
Линейный вид
