Var ar:array of integer; n,i,min,mini:integer; begin randomize; min:=2147483647; writeln('Введите размерность:'); readln(n); setlength(ar,n); writeln('Array:'); for i:=0 to n-1 do begin ar[i]:=random(-30,30); write(ar[i]:4); if min>=ar[i] then begin min:=ar[i]; mini:=i; end; end; for i:=0 to mini-1 do if ar[i]<0 then ar[i]:=0; writeln; writeln('Final array:'); for i:=0 to n-1 do write(ar[i]:4); end.
Пример ввода: 5 Пример вывода: Array: -3 -26 -2 18 -21 Final array: 0 -26 -2 18 -21
Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k for j = 1 to l x(i, j) = rnd * 21 - 10 print using "###"; x(i, j); print ; " "; next j print next i for i = 1 to l * 4 - 1 print ; "_"; next i print for n = 1 to l for i = 1 to l - n - 1 if x(i, 2) < x(i + 1, 2) then b = x(i, 2) x(i, 2) = x(i + 1, 2) x(i + 1, 2) = b end if next i next n for i = 1 to k for j = 1 to l print using "###"; x(i, j); print " "; next j print next i end
Ctrl+shift2566 gfc54-78gh