задачки на массивы, не могу разобраться,что к чему.Помогите! Опции

[монтик]

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

[Артемий]

По первой задачке:

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);

?

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