подкиньте идею как решить эту задачу в паскале

[ronny137]

Условие: дан целочисленный массив из 50 элементов найти наименьший
элемент, а затем вычесть его из каждого элемента.
наименьший элемент я нашел, а как вычесть не понимаю. вроде чтото написал но походу это не так.




program zad;
uses crt;
var
a: array [1..50] of integer;
b: array [1..50] of integer;
min,i:integer;
begin
clrscr;
randomize;
for i:= 1 to 50 do
a[i]:=random (20)-20;
for i:=1 to 50 do
write (a[i]:2);
min:=a[1];
for i:= 1 to 50 do
if min>a[i] then
min:=a[i];
writeln;
write ('min=',min);
b[i]:=b[i]-min;
writeln;
for i:=1 to 50 do
write (b[i]:2);
end.

[IT-man]

b[i]:=b[i]-min;

перед этим вставь

for i:=1 to 50 do

[ronny137]

[IT-man]

Ну и правильно - минимум ищем где? в массиве a
А какого же многочлена вы из элементов массива b минимум массива а вычитаете? Причем массив b не заполнен ничем кроме 0- а если из 0 вычесть -20 то и получится 20! Че фигней то страдать?

[ronny137]

спасибо. сделал.