program laba3;
var
b:array[1..24]of integer;
n, error, min,max,razn,i:integer;
begin
writeln('введите кол-во элементов');
repeat
readln(n);
if n<0 then writeln('повторите ввод размерности!');
until n>0;
writeln('введите элементы массива');
for i:=1 to n do begin
repeat
write('b[',i,']=');
{$i-}
readln(b[i]);
Error:=IOResult;
{$i+};
if error<>0 then writeln('ошибка! повторите ввод!');
min:=b[1];
until error=0;
end;
clrscr;
writeln('исходный массив');
for i:=1 to n do begin
write(b[i],',');
end;
for i:=1 to n do begin
if b[i]<min then min:=b[i]
end;
for i:=1 to n do begin
b[i]:=(b[i]/min);
end;
writeln;
writeln('минимальный элемент массива = ');
write min;
writeln;
writeln ('преобразованный массив');
for i:=1 to n do
writeln(b[i]:6);
end;
end.
Что не так?
М | Тэги!! |
Сообщение отредактировано: Lapp -