begin writeln('Заполнение массива из ', T_max ,' элементов случайными данными');
//начальные значения min и max for i:=1 to T_max do begin T[i]:=random(-79,79);// диапазон случайных чисел write(T[i]:6);
if (T[i]<0) then T[i]:=0 else if (T[i]>0) then T[i]:=1; end;
writeln(); writeln(); writeln('Положительные элементы заменить единицами,отрицательные нулями '); writeln('Результат'); for i:=1 to T_max do write(T[i]:6);
Program n_7;var a,b,c,d,max,min:integer;function f(x,y,c,d:integer):integer;beginif (x>y) and (x>c) and (x>d) then begin max:=x; endelse if (y>c) and (x>d) then begin max:=y; endelse if (c>d) then begin max:=c; endelse begin max:=d; end;if (x<y) and (x<c) and (x<d) then begin min:=x; endelse if (y<c) and (x<d) then begin min:=y; endelse if (c<d) then begin min:=c; endelse begin min:=d; end;writeln('max=',max,'; min=',min,' pa3HocTb=',max/min,' B pa3ax');end;begin readln (a,b,c,d);f(a,b,c,d);readln;end.
const
T_max=10;
var
i:byte;
T:array[1..T_max]of integer;
begin
writeln('Заполнение массива из ', T_max ,' элементов случайными данными');
//начальные значения min и max
for i:=1 to T_max do begin
T[i]:=random(-79,79);// диапазон случайных чисел
write(T[i]:6);
if (T[i]<0) then
T[i]:=0
else if (T[i]>0) then
T[i]:=1;
end;
writeln();
writeln();
writeln('Положительные элементы заменить единицами,отрицательные нулями ');
writeln('Результат');
for i:=1 to T_max do
write(T[i]:6);
end.