Developing.ru

тема лабораторной:Дан массив Х(178). Вычислить разность между максимальным и минимальным по модулю элементами этого массива.
програма почти готова но проблема вот в чем не выберается максимальный и минимальный по модулю элемент
uses crt;
const
n=10;
var
a:array[1..n]of real;
min,max,rezult:real;
i: integer;
begin
clrscr;
randomize;
writeln('ishodniy massiv');
i:=1;
repeat
a:=random(178)+random;
if random >0.5 then a:=-a;
writeln(a:3:3,' ');
inc(i);
until(i>n);
for i:=1 to n do
min:=abs(a);
max:=abs(a);
if abs(a)<min then вот тут ошибка я не знаю как исправить
if abs(a)>max then
max:=abs(a);
writeln('makcemalniy po modyly element ',max);
writeln('minimaliniy po modyly element ',min);
rezult:=max-min;
writeln('pazniza mezdy makcimalnym i minimalnym pavna',rezult);
end.

Ты вообще компилировать пробовал?!

вот некоторая инфа, может моможет. проставь модули и скомпонуй в одну прогу.
рандомно присваивать так
for i:=1 to N do m:=random(178);

Код: Выделить всё

5. Знайти мінімальний елемент в одновимірному масиві.
Program MinimumLinMas;
Const N=10;
Var M:array[l..N] of integer;
i,MIN: integer;
 begin
for i:=l to N do begin
write('M[',i,']=');
 readln(M[i]);
 end;
min:=m[1];
for i:=2 to N do
if M[i]<MIN then MIN:=M[i];
 writeln(' Масив m:'); 
writeln;
for i:=l  to N do write(M[i]:5);
 writeln;
writeln('min=', MІN);
readln;
 end.

6. Знайти максимальний елемент у двовимірному масиві.
Program MaximumMatrMassiv;
VarM:array[1..3,l..4] of integer;
І ,j,max: integer;
 begin
for i:=l  to 3 do 
 for j:=l to 4 do begin
write('Bвeдiть M[',i,',', j,'] ='); 
readln (M[i, j]); end;
MAX:=M[1,1];
 For i:=l to 3 do
 for j:=l to 4 do
if M[i,j]>MAX then MAX:=M[i,j];
writeln('max=' ,MAX);
readln;
 end.

Developing.ru

нужна помощ программа почти готова

нужна помощ программа почти готова

Re: нужна помощ программа почти готова