IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> задачки на массивы, не могу разобраться,что к чему.Помогите!
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


вроде бы легко,но ничего не получается:
1.Дан массив чисел,найти значение мах и мин элемента,если таких элементов несколько,определить сколько их и на каких позициях в массиве они стоят.
2.Дан массив целых чисел,записать его задом наперед.
3.Дан массив целых чисел М1,Пользователь вводит второй,размерностью М2,который меньше первого.Определить сколько раз массив М2 встречается в массиве М1. ПРимечание:первый массив заполняется случайно,а второй придумывает пользователь.
ЕСли Кто поможет Огромнейший ему Респект и Уважуха!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Все это уже решалось,советую воспользоваться поиском!


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(монтик @ 20.11.2007 15:32) *

вроде бы легко,но ничего не получается:
Покажи, что сделал. Поможем.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Если решалось,то не затруднит ли вас указать ссылку.Пожалуйста!! Буду очень благодарен.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


По первой задачке:
const n=8;
var
a: array [1..n] of integer;
i,count,max,min : integer;
begin
for i:= 1 to n do readln(a[i]);
max := a[1]; min := a[1];
for i:= 1 to n do begin
if a[i]>max then max := a[i] else
if a[i]<min then min := a[i];
end;
write(max,' ',min);
writeln;
for i:= 1 to n do
if (a[i]=max) or (a[i]=min) then begin
inc(count); write(i,' ');
end;
if count>2 then writeln(count);

По второй:
const n=8;
var
a: array [1..n] of integer;
i : integer;
begin
for i:= 1 to n do readln(a[i]);
for i:= n downto 1 do write(a[i],' ');

Третья задача:
const m1=24; m2=4;
var
a: array [1..m1] of integer;
b: array [1..m2] of integer;
i,j,count : integer;
flag: boolean;
begin
flag := false;
randomize;
for i:= 1 to m1 do begin
a[i] := random(100);
write(a[i],' ');
end;
for i:= 1 to m2 do readln(b[i]);
for i:= 1 to m1 do begin
if b[1]<>a[i] then continue else
for j:= 1 to m2-1 do begin
if a[j+i]=b[j+1] then flag:=true else begin
flag := false;
break;
end; end;
if flag=true then inc(count);
end;
writeln(count);

?

Сообщение отредактировано: Артемий -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.09.2020 5:20
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name