Дан массив X(10). Преобразовать массив согласно условию: 1) разделить все положит эл-ты на мин-ый элемент, 2) все отрицат-ые эл-ты умножить на (-1), 3)нулевые эл-ты заменить числом 100. Очень нужно ((
program fix;
const n=10;
type mas=array[1..n] of real;
var i:integer;
x:mas;
min:real;
begin
for i:=1 to n do begin
writeln('Введите элемент массива');
readln( x [ i ] );
end;
min:=x[1];
for i:=1 to n do begin
if x [ i ] < min then min:= x [ i ] ;
end;
for i:=1 to n do begin
if x [ i ] > 0 then x [ i ] := x [ i ] /min else x [ i ] :=-1* x [ i ] ;
end;
for i:=1 to n do begin
if x [ i ] =0 then x [ i ] :=100;
end;
for i:=1 to n do
writeln(x [ i ] );
end.
Не за что. Тут правда для ручного ввода элементов, но можно сделать и через random (просто не факт, что там 0 окажется, поэтому я сделала так) . Я проверила, все работает.
Что-то я вставляю, а Ответы все исправляют. Я там поставила пробелы кое-где, ну ты ведь додумаешься гд они не нужны.
⇢