Не знаю как решить задачи на паскале, помогите пожалуйста!

[Машуня]

Не знаю как решить задачи на паскале, помогите пожалуйста!

Спасибо большое, что откликнулись на мою просьбу!!!!
Задачи однотипные, а как решать не знаю!!!!
Помогите!Всего 3 здачи!!
1.С клавиатуры вводится строка длиной N, 2<N<100. Заменить пробелы на ‘_’, а знаки
препинания на пробелы. Результат вывести на экран.
2.Дан целочисленный массив размера N, 2<N<100. Размер массива и его элементы
вводятся с клавиатуры. Найти минимальную разницу между двумя элементами
массива. Результат вывести на экран.
3.Дан целочисленный массив размера N, 2<N<100. Размер массива и его элементы
вводятся с клавиатуры. Обнулить все элементы кроме минимального и
максимального. Результат вывести на экран.

 

[Vladimir_S]

1.С клавиатуры вводится строка длиной N, 2<N<100. Заменить пробелы на ‘_’, а знаки препинания на пробелы. Результат вывести на экран.

VAR
 i:INTEGER;
 S:STRING;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 For i:=1 to Length(S) do
  If S[i]=' ' then Write('_') else
  If (S[i]='.') or (S[i]=',') or (S[i]=';') or (S[i]=':')
  or (S[i]='-') or (S[i]='?') or (S[i]='!') then Write(' ')
  else write (S[i]);
 WriteLn;
 ReadLn;
END.

 

[Vladimir_S]

3.Дан целочисленный массив размера N, 2<N<100. Размер массива и его элементы вводятся с клавиатуры. Обнулить все элементы кроме минимального и максимального. Результат вывести на экран.

VAR
 i,N,Min,Max,Imin,Imax:INTEGER;
 A,B:ARRAY[1..100] of INTEGER;
BEGIN
 Write('N= ');
 ReadLn(N);
 Min:=32000;
 Max:=-32000;
 For i:=1 to N do
  begin
   Write('A[',i,']= ');
   ReadLn(A[i]);
   If A[i]<Min then
    begin
     Min:=A[i];
     Imin:=i;
    end;
   If A[i]>Max then
    begin
     Max:=A[i];
     Imax:=i;
    end;
   B[i]:=0;
   end;
 B[Imin]:=A[Imin];
 B[Imax]:=A[Imax];
 For i:=1 to N do
  WriteLn(A[i]:6,B[i]:10);
 ReadLn;
END.

А вторую задачку - уж попробуйте самостоятельно.

 

[Машуня]

спасибо большое,что помогли!!!!!попробую решить

 

[MrSTEP]

Подсказка вам - вычисляете разницу между текущим и следующим (можно предыдущим), и сравниваете с минимальной. Если меньше, то минимальной разнице присваиваете текущую

 

[Машуня]

Спасибо большое, с вашей помощью я решила!Ещё раз спасибо!!!

 

[Linka]

2.Дан целочисленный массив размера N, 2<N<100. Размер массива и его элементы
вводятся с клавиатуры. Найти минимальную разницу между двумя элементами
массива. Результат вывести на экран.

А как можно с клавиаутуры ввести размер массива ?

 

[Vladimir_S]

А как можно с клавиаутуры ввести размер массива ?

Да просто объявить исходный размер массива "с запасом", потом обычным образом ввести N и все циклы обработки элементов массива вести до N.

Var
 A:ARRAY[1..500] of WORD;
 N,i:INTEGER;
Begin
 Write('N= ');
 ReadLn(N);
 For i:=1 to N do
  A[i]:=1;
 ...

 

[MrSTEP]

То, что мы вводим с клавиатуры, присваивается некоторой переменной.
Размер массива в разделе описания переменных должен не может быть определен переменной. Так что задавайте максимальный размер для задачи (100), а работать будете с N элементами (n введете с клавиатуры)