6 задач по TP7

[alex_fcsm]

Uses crt;
const n=3;
Type mas = array [1..n] of integer;
var x:mas; i,min,max:integer;

BEGIN
clrscr;
for i:=1 to n do
begin
write('X[',i,']=');
readln(x[i]);
end;
writeln;
writeln('Вывод ');
for i:=1 to n do
write(x[i]:3);
writeln;
min:=1;max:=1;
for i:=2 to n do
if x[max]<x[i] then max:=i
   else if x[min]>x[i] then min:=i;
writeln('Минимальное значение = ',x[min]);
writeln('Индекс минимального значения = ',min);
writeln('Максимальное значение = ',x[max]);
writeln('Индекс максимального значения = ',max);
ReadKey;
END.

[alex_fcsm]

Сообщение от Disel

Почему когда X[1] = max или min, программа выводит ИНДЕКС = 0?

Чему изначально равен Imin? Вы его не инициализируете и там в принципе может лежать что угодно (но чаще всего 0)

Uses crt;
const n=3;
Type mas = array [1..n] of integer;
var x:mas; i,min,max,Imin,Imax:integer;

BEGIN
clrscr;
for i:=1 to n do
begin
write('X[',i,']=');
readln(x[i]);
end;
writeln;
writeln('Вывод ');
writeln;
for i:=1 to n do
write(x[i]:3);
writeln;
Imin:=1;
min:=x[1];
for i:=1 to n do
if min>x[i] then
begin
min:=x[i];
Imin:=i;
end;
writeln('Минимальное значение = ',min);
writeln('Индекс минимального значения = ',Imin);
Imax:=1;
max:=x[1];
for i:=1 to n do
if max<x[i] then
begin
max:=x[i];
Imax:=i;
end;
writeln('Максимальное значение = ',max);
writeln('Индекс максимального значения = ',Imax);
ReadKey;
END.

[Disel]

Program zadanie_6;
uses crt;
const n=12;
type mas = array [1..n] of integer;
var S:mas;

Procedure vvod (var S:mas);
var i:integer;
Begin
randomize;
writeln('Массив S');
writeln;
for i:=1 to n do
S[i]:=random(10)+1;
End;

Procedure vivod (var S:mas);
var i:integer;
Begin
for i:=1 to n do
write(S[i]:3);
End;

Procedure korr (var S:mas);
var i,max,j:integer;
Begin
writeln;writeln;
max:=s[i];
for i:=1 to n do
if max<S[i] then
begin
max:=S[i];
j:=i;
end;
writeln('Максимальное значение в массиве = ',max);
writeln (j);

for i:=1 to j do
?????????????????????????????

End;




BEGIN
clrscr;
vvod(S);
vivod(S);
korr(S);

ReadKey;
END.

[Disel]

Вот мои мысли задания №6. Вот не получается создать второй массив Т, не пойму как сделать.

[alex_fcsm]

Вы все усложняете

uses crt;
const n=12;
var s,t:array[1..n] of byte;
    i,max:byte;

BEGIN
clrscr;
for i:=1 to n do
 begin
   s[i]:=random(100);
   write(s[i]:3);
 end;
max:=1;
for i:=2 to n do
 if s[max]<s[i] then max:=i;
writeln;
for i:=1 to n do
 begin
 if i<max then t[i]:=s[1] else t[i]:=s[i];
 write(t[i]:3);
 end;
ReadKey;
END.

Для отображения в посте кода используйте тег форматирования #

[Disel]

Понял, большое спасибо alex_fcsm!!!

[Disel]

alex_fcsm еще поможите решить 4 задание? Здесь чего-то ни как не соображу.

[alex_fcsm]

Сообщение от Disel

alex_fcsm еще поможите решить 4 задание? Здесь чего-то ни как не соображу.

Особенно когда оно решено


P.S. Насоздавали тем клонов теперь Вам писать будут и там и там плюс еще и на бан можете нарваться. В общем читайте правила форума если планируете здесь обитать

[Disel]

Там ошиблись. Код проги от пятого задания.

[Disel]

Ладно, и на этом большое спасибо!!!